home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1992-05-07 | 24.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 21 | 52 75 6e 49 6d 61 67 65 |..... >!|RunImage|
|00000010| 0d 00 14 05 f4 0d 00 1e | 2d f4 20 41 20 50 75 62 |........|-. A Pub|
|00000020| 6c 69 63 20 44 6f 6d 61 | 69 6e 20 55 74 69 6c 69 |lic Doma|in Utili|
|00000030| 74 79 20 42 79 20 4d 61 | 72 6b 20 42 72 69 67 68 |ty By Ma|rk Brigh|
|00000040| 74 2e 0d 00 28 54 f4 20 | 4d 61 6e 79 20 74 68 61 |t...(T. |Many tha|
|00000050| 6e 6b 73 20 74 6f 20 53 | 74 75 61 72 74 20 48 69 |nks to S|tuart Hi|
|00000060| 63 6b 69 6e 62 6f 74 74 | 6f 6d 20 66 6f 72 20 50 |ckinbott|om for P|
|00000070| 52 4f 43 5f 4d 61 6b 65 | 42 69 74 6d 61 70 20 61 |ROC_Make|Bitmap a|
|00000080| 6e 64 20 6f 74 68 65 72 | 20 61 73 73 6f 72 74 65 |nd other| assorte|
|00000090| 64 20 68 65 6c 70 0d 00 | 32 04 0d 00 3c 24 56 65 |d help..|2...<$Ve|
|000000a0| 72 73 69 6f 6e 24 3d 22 | 56 65 72 20 30 2e 39 36 |rsion$="|Ver 0.96|
|000000b0| 20 53 65 70 20 27 39 30 | 20 28 50 44 29 22 0d 00 | Sep '90| (PD)"..|
|000000c0| 46 04 0d 00 50 35 de 20 | 42 6c 6f 63 6b 25 20 32 |F...P5. |Block% 2|
|000000d0| 30 34 38 20 20 3a f4 20 | 47 65 6e 65 72 61 6c 20 |048 :. |General |
|000000e0| 70 75 72 70 6f 73 65 20 | 57 49 4d 50 20 77 6f 72 |purpose |WIMP wor|
|000000f0| 6b 73 70 61 63 65 21 0d | 00 5a 04 0d 00 64 22 f2 |kspace!.|.Z...d".|
|00000100| 5f 49 6e 69 74 69 61 6c | 69 73 65 5f 50 72 6f 67 |_Initial|ise_Prog|
|00000110| 72 61 6d 5f 56 61 72 69 | 61 62 6c 65 73 0d 00 6e |ram_Vari|ables..n|
|00000120| 05 3a 0d 00 78 1c f2 5f | 49 6e 69 74 69 61 6c 69 |.:..x.._|Initiali|
|00000130| 73 65 5f 57 49 4d 50 5f | 53 79 73 74 65 6d 0d 00 |se_WIMP_|System..|
|00000140| 82 05 3a 0d 00 8c 27 f2 | 5f 53 65 74 49 63 6f 6e |..:...'.|_SetIcon|
|00000150| 54 65 78 74 28 31 35 2c | 49 6e 66 6f 25 2c 56 65 |Text(15,|Info%,Ve|
|00000160| 72 73 69 6f 6e 24 2c 32 | 33 29 0d 00 96 05 3a 0d |rsion$,2|3)....:.|
|00000170| 00 a0 2c f2 5f 43 72 65 | 61 74 65 46 6f 6e 74 4d |..,._Cre|ateFontM|
|00000180| 65 6e 75 28 a4 5f 43 72 | 65 61 74 65 49 6e 64 69 |enu(._Cr|eateIndi|
|00000190| 72 65 63 74 65 64 44 61 | 74 61 29 0d 00 aa 05 3a |rectedDa|ta)....:|
|000001a0| 0d 00 b4 27 e3 20 4c 6f | 6f 70 25 3d 30 20 b8 20 |...'. Lo|op%=0 . |
|000001b0| 31 36 20 3a 20 42 6c 6f | 63 6b 25 3f 4c 6f 6f 70 |16 : Blo|ck%?Loop|
|000001c0| 25 3d 30 20 3a 20 ed 0d | 00 be 3c f2 5f 53 65 74 |%=0 : ..|..<._Set|
|000001d0| 49 63 6f 6e 54 65 78 74 | 28 53 68 6f 77 46 6f 6e |IconText|(ShowFon|
|000001e0| 74 4e 61 6d 65 25 2c 4d | 61 69 6e 25 2c a4 5f 44 |tName%,M|ain%,._D|
|000001f0| 65 63 6f 64 65 4d 79 46 | 6f 6e 74 4d 65 6e 75 2c |ecodeMyF|ontMenu,|
|00000200| 35 30 29 0d 00 c8 43 f4 | 20 53 65 6c 65 63 74 20 |50)...C.| Select |
|00000210| 31 73 74 20 46 6f 6e 74 | 20 66 72 6f 6d 20 73 65 |1st Font| from se|
|00000220| 6c 65 63 74 69 6f 6e 20 | 6c 69 73 74 20 61 6e 64 |lection |list and|
|00000230| 20 64 69 73 70 6c 61 79 | 20 69 74 20 6f 6e 20 73 | display| it on s|
|00000240| 74 61 72 74 75 70 0d 00 | d2 05 3a 0d 00 dc 14 ee |tartup..|..:.....|
|00000250| 20 85 20 f2 5f 57 69 6d | 70 5f 45 72 72 6f 72 0d | . ._Wim|p_Error.|
|00000260| 00 e6 05 3a 0d 00 f0 05 | f5 0d 00 fa 27 20 20 20 |...:....|....' |
|00000270| c8 99 20 22 57 69 6d 70 | 5f 50 6f 6c 6c 22 2c 4d |.. "Wimp|_Poll",M|
|00000280| 61 73 6b 25 2c 42 6c 6f | 63 6b 25 20 b8 20 41 25 |ask%,Blo|ck% . A%|
|00000290| 0d 01 04 0e 20 20 20 c8 | 8e 20 41 25 20 ca 0d 01 |.... .|. A% ...|
|000002a0| 0e 43 20 20 20 20 20 20 | c9 20 32 20 3a 20 c8 99 |.C |. 2 : ..|
|000002b0| 20 22 57 69 6d 70 5f 4f | 70 65 6e 57 69 6e 64 6f | "Wimp_O|penWindo|
|000002c0| 77 22 2c 2c 42 6c 6f 63 | 6b 25 20 20 20 3a 20 f4 |w",,Bloc|k% : .|
|000002d0| 20 61 6c 6c 6f 77 73 20 | 61 75 74 6f 20 44 72 61 | allows |auto Dra|
|000002e0| 67 0d 01 18 44 20 20 20 | 20 20 20 c9 20 33 20 3a |g...D | . 3 :|
|000002f0| 20 c8 99 20 22 57 69 6d | 70 5f 43 6c 6f 73 65 57 | .. "Wim|p_CloseW|
|00000300| 69 6e 64 6f 77 22 2c 2c | 42 6c 6f 63 6b 25 20 20 |indow",,|Block% |
|00000310| 3a 20 f4 20 61 6c 6c 6f | 77 73 20 61 75 74 6f 20 |: . allo|ws auto |
|00000320| 43 6c 6f 73 65 0d 01 22 | 1f 20 20 20 20 20 20 c9 |Close.."|. .|
|00000330| 20 36 20 3a 20 f2 5f 42 | 75 74 74 6f 6e 50 72 65 | 6 : ._B|uttonPre|
|00000340| 73 73 65 64 0d 01 2c 27 | 20 20 20 20 20 20 c9 20 |ssed..,'| . |
|00000350| 38 20 3a 20 f2 5f 50 72 | 6f 63 65 73 73 4b 65 79 |8 : ._Pr|ocessKey|
|00000360| 28 42 6c 6f 63 6b 25 21 | 32 34 29 0d 01 36 1f 20 |(Block%!|24)..6. |
|00000370| 20 20 20 20 20 c9 20 39 | 20 3a 20 f2 5f 4d 65 6e | . 9| : ._Men|
|00000380| 75 53 65 6c 65 63 74 69 | 6f 6e 0d 01 40 31 20 20 |uSelecti|on..@1 |
|00000390| 20 20 20 20 c9 20 31 36 | 2c 31 37 2c 31 38 20 3a | . 16|,17,18 :|
|000003a0| 20 f2 5f 44 65 63 6f 64 | 65 4d 65 73 73 61 67 65 | ._Decod|eMessage|
|000003b0| 28 42 6c 6f 63 6b 25 21 | 31 36 29 0d 01 4a 08 20 |(Block%!|16)..J. |
|000003c0| 20 20 cb 0d 01 54 07 fd | 20 a3 0d 01 5e 05 3a 0d | ...T..| ...^.:.|
|000003d0| 01 68 2f f4 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.h/. ***|********|
|000003e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 01 |********|******..|
|00000400| 72 2f f4 20 54 68 69 73 | 20 69 73 20 74 68 65 20 |r/. This| is the |
|00000410| 57 49 4d 50 20 45 72 72 | 6f 72 20 68 61 6e 64 6c |WIMP Err|or handl|
|00000420| 69 6e 67 20 72 6f 75 74 | 69 6e 65 20 21 0d 01 7c |ing rout|ine !..||
|00000430| 10 f4 20 55 73 65 73 3a | 20 4e 4f 4e 45 0d 01 86 |.. Uses:| NONE...|
|00000440| 2f f4 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/. *****|********|
|00000450| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000460| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 01 90 12 |********|****....|
|00000470| dd 20 f2 5f 57 69 6d 70 | 5f 45 72 72 6f 72 0d 01 |. ._Wimp|_Error..|
|00000480| 9a 0f 20 20 20 ea 20 45 | 72 72 6f 72 24 0d 01 a4 |.. . E|rror$...|
|00000490| 1c 20 20 20 c8 99 20 22 | 57 69 6d 70 5f 44 72 61 |. .. "|Wimp_Dra|
|000004a0| 67 42 6f 78 22 2c 2c 2d | 31 0d 01 ae 10 20 20 20 |gBox",,-|1.... |
|000004b0| 21 42 6c 6f 63 6b 25 3d | 9f 0d 01 b8 12 20 20 20 |!Block%=|..... |
|000004c0| 45 72 72 6f 72 24 20 3d | 20 f6 24 0d 01 c2 5e 20 |Error$ =| .$...^ |
|000004d0| 20 20 e7 20 9f 3c 3e 32 | 30 30 31 20 8c 20 45 72 | . .<>2|001 . Er|
|000004e0| 72 6f 72 24 20 2b 3d 20 | 22 20 28 69 6e 74 65 72 |ror$ += |" (inter|
|000004f0| 6e 61 6c 20 65 72 72 6f | 72 20 63 6f 64 65 20 22 |nal erro|r code "|
|00000500| 2b c3 9e 2b 22 29 2e 20 | 4f 4b 20 54 6f 20 43 6f |+..+"). |OK To Co|
|00000510| 6e 74 69 6e 75 65 2c 20 | 43 41 4e 43 45 4c 20 54 |ntinue, |CANCEL T|
|00000520| 6f 20 41 62 6f 72 74 2e | 22 0d 01 cc 1e 20 20 20 |o Abort.|".... |
|00000530| 24 28 42 6c 6f 63 6b 25 | 2b 34 29 3d 45 72 72 6f |$(Block%|+4)=Erro|
|00000540| 72 24 20 2b 20 bd 30 0d | 01 d6 4f 20 20 20 c8 99 |r$ + .0.|..O ..|
|00000550| 20 22 57 69 6d 70 5f 52 | 65 70 6f 72 74 45 72 72 | "Wimp_R|eportErr|
|00000560| 6f 72 22 2c 42 6c 6f 63 | 6b 25 2c 25 30 30 31 20 |or",Bloc|k%,%001 |
|00000570| 2d 20 28 32 2a 28 9f 3c | 3e 32 30 30 31 29 29 2c |- (2*(.<|>2001)),|
|00000580| 4d 79 54 61 73 6b 4e 61 | 6d 65 24 20 b8 20 2c 52 |MyTaskNa|me$ . ,R|
|00000590| 65 73 75 6c 74 25 0d 01 | e0 20 20 20 20 e7 20 52 |esult%..|. . R|
|000005a0| 65 73 75 6c 74 25 3d 32 | 20 8c 20 f2 5f 43 6c 6f |esult%=2| . ._Clo|
|000005b0| 73 65 44 6f 77 6e 0d 01 | ea 05 e1 0d 01 f4 05 3a |seDown..|.......:|
|000005c0| 0d 01 fe 28 f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...(. **|********|
|000005d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005e0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 02 08 26 f4 20 4d 6f |********|...&. Mo|
|000005f0| 75 73 65 20 42 75 74 74 | 6f 6e 20 53 74 61 74 75 |use Butt|on Statu|
|00000600| 73 20 48 61 73 20 43 68 | 61 6e 67 65 64 2e 0d 02 |s Has Ch|anged...|
|00000610| 12 28 f4 20 55 73 65 73 | 3a 20 4f 6e 6c 79 20 55 |.(. Uses|: Only U|
|00000620| 53 45 52 20 73 75 70 70 | 6c 69 65 64 20 72 6f 75 |SER supp|lied rou|
|00000630| 74 69 6e 65 73 2e 0d 02 | 1c 28 f4 20 2a 2a 2a 2a |tines...|.(. ****|
|00000640| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000650| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 02 |********|******..|
|00000660| 26 15 dd 20 f2 5f 42 75 | 74 74 6f 6e 50 72 65 73 |&.. ._Bu|ttonPres|
|00000670| 73 65 64 0d 02 30 2b ea | 20 4d 6f 75 73 65 58 25 |sed..0+.| MouseX%|
|00000680| 2c 4d 6f 75 73 65 59 25 | 2c 42 75 74 74 6f 6e 25 |,MouseY%|,Button%|
|00000690| 2c 57 69 6e 64 6f 77 25 | 2c 49 63 6f 6e 25 0d 02 |,Window%|,Icon%..|
|000006a0| 3a 46 20 20 20 4d 6f 75 | 73 65 58 25 3d 42 6c 6f |:F Mou|seX%=Blo|
|000006b0| 63 6b 25 21 30 30 20 3a | 20 f4 20 42 6c 6f 63 6b |ck%!00 :| . Block|
|000006c0| 25 21 30 30 20 3d 20 4d | 6f 75 73 65 20 58 20 28 |%!00 = M|ouse X (|
|000006d0| 53 63 72 65 65 6e 20 43 | 6f 2d 6f 72 64 69 6e 61 |Screen C|o-ordina|
|000006e0| 74 65 73 29 0d 02 44 46 | 20 20 20 4d 6f 75 73 65 |tes)..DF| Mouse|
|000006f0| 59 25 3d 42 6c 6f 63 6b | 25 21 30 34 20 3a 20 f4 |Y%=Block|%!04 : .|
|00000700| 20 42 6c 6f 63 6b 25 21 | 30 34 20 3d 20 4d 6f 75 | Block%!|04 = Mou|
|00000710| 73 65 20 59 20 28 53 63 | 72 65 65 6e 20 43 6f 2d |se Y (Sc|reen Co-|
|00000720| 6f 72 64 69 6e 61 74 65 | 73 29 0d 02 4e 30 20 20 |ordinate|s)..N0 |
|00000730| 20 42 75 74 74 6f 6e 25 | 3d 42 6c 6f 63 6b 25 21 | Button%|=Block%!|
|00000740| 30 38 20 3a 20 f4 20 42 | 6c 6f 63 6b 25 21 30 38 |08 : . B|lock%!08|
|00000750| 20 3d 20 42 75 74 74 6f | 6e 73 0d 02 58 56 20 20 | = Butto|ns..XV |
|00000760| 20 57 69 6e 64 6f 77 25 | 3d 42 6c 6f 63 6b 25 21 | Window%|=Block%!|
|00000770| 31 32 20 3a 20 f4 20 42 | 6c 6f 63 6b 25 21 31 32 |12 : . B|lock%!12|
|00000780| 20 3d 20 57 69 6e 64 6f | 77 20 48 61 6e 64 6c 65 | = Windo|w Handle|
|00000790| 20 28 42 61 63 6b 47 72 | 6f 75 6e 64 20 3d 20 2d | (BackGr|ound = -|
|000007a0| 31 2c 20 49 63 6f 6e 42 | 61 72 20 3d 20 2d 32 29 |1, IconB|ar = -2)|
|000007b0| 0d 02 62 51 20 20 20 49 | 63 6f 6e 25 20 20 3d 42 |..bQ I|con% =B|
|000007c0| 6c 6f 63 6b 25 21 31 36 | 20 3a 20 f4 20 42 6c 6f |lock%!16| : . Blo|
|000007d0| 63 6b 25 21 31 36 20 3d | 20 49 63 6f 6e 20 48 61 |ck%!16 =| Icon Ha|
|000007e0| 6e 64 6c 65 20 28 20 57 | 6f 72 6b 20 41 72 65 61 |ndle ( W|ork Area|
|000007f0| 20 42 61 63 6b 47 72 6f | 75 6e 64 20 3d 20 2d 31 | BackGro|und = -1|
|00000800| 29 0d 02 6c 08 20 20 20 | 3a 0d 02 76 39 20 20 20 |)..l. |:..v9 |
|00000810| e7 20 57 69 6e 64 6f 77 | 25 3d 20 49 63 6f 6e 42 |. Window|%= IconB|
|00000820| 61 72 25 20 80 20 49 63 | 6f 6e 25 20 3d 20 49 63 |ar% . Ic|on% = Ic|
|00000830| 6f 6e 42 61 72 49 63 6f | 6e 48 61 6e 64 6c 65 25 |onBarIco|nHandle%|
|00000840| 20 8c 0d 02 80 16 20 20 | 20 20 20 20 c8 8e 20 42 | ..... | .. B|
|00000850| 75 74 74 6f 6e 25 20 ca | 0d 02 8a 29 20 20 20 20 |utton% .|...) |
|00000860| 20 20 20 20 20 c9 20 25 | 30 30 31 20 3a 20 f2 5f | . %|001 : ._|
|00000870| 4f 70 65 6e 57 69 6e 64 | 6f 77 28 4d 61 69 6e 25 |OpenWind|ow(Main%|
|00000880| 29 0d 02 94 29 20 20 20 | 20 20 20 20 20 20 c9 20 |)...) | . |
|00000890| 25 31 30 30 20 3a 20 f2 | 5f 4f 70 65 6e 57 69 6e |%100 : .|_OpenWin|
|000008a0| 64 6f 77 28 4d 61 69 6e | 25 29 0d 02 9e 28 20 20 |dow(Main|%)...( |
|000008b0| 20 20 20 20 20 20 20 c9 | 20 25 30 31 30 20 3a 20 | .| %010 : |
|000008c0| f2 5f 53 65 74 55 70 49 | 63 6f 6e 42 61 72 4d 65 |._SetUpI|conBarMe|
|000008d0| 6e 75 0d 02 a8 0b 20 20 | 20 20 20 20 cb 0d 02 b2 |nu.... | ....|
|000008e0| 08 20 20 20 cd 0d 02 bc | 08 20 20 20 3a 0d 02 c6 |. ....|. :...|
|000008f0| 28 20 20 20 e7 20 57 69 | 6e 64 6f 77 25 3d 4d 61 |( . Wi|ndow%=Ma|
|00000900| 69 6e 25 20 80 20 42 75 | 74 74 6f 6e 25 3d 20 25 |in% . Bu|tton%= %|
|00000910| 30 31 30 20 8c 0d 02 d0 | 31 20 20 20 20 20 20 f2 |010 ....|1 .|
|00000920| 5f 43 72 65 61 74 65 4d | 61 69 6e 57 69 6e 64 6f |_CreateM|ainWindo|
|00000930| 77 4d 65 6e 75 28 4d 6f | 75 73 65 58 25 2c 4d 6f |wMenu(Mo|useX%,Mo|
|00000940| 75 73 65 59 25 29 0d 02 | da 08 20 20 20 cd 0d 02 |useY%)..|.. ...|
|00000950| e4 08 20 20 20 3a 0d 02 | ee 4a 20 20 20 e7 20 57 |.. :..|.J . W|
|00000960| 69 6e 64 6f 77 25 3d 20 | 4d 61 69 6e 25 20 80 20 |indow%= |Main% . |
|00000970| 49 63 6f 6e 25 3d 53 61 | 76 65 42 4d 46 25 20 80 |Icon%=Sa|veBMF% .|
|00000980| 20 28 42 75 74 74 6f 6e | 25 3d 25 31 30 30 20 84 | (Button|%=%100 .|
|00000990| 20 42 75 74 74 6f 6e 25 | 3d 25 30 30 31 29 20 8c | Button%|=%001) .|
|000009a0| 0d 02 f8 3c 20 20 20 20 | 20 20 f2 5f 42 75 74 74 |...< | ._Butt|
|000009b0| 6f 6e 50 72 65 73 73 28 | 4d 61 69 6e 25 2c 20 53 |onPress(|Main%, S|
|000009c0| 61 76 65 42 4d 46 25 2c | 20 53 61 76 65 42 4d 4c |aveBMF%,| SaveBML|
|000009d0| 25 2c 20 53 61 76 65 42 | 4d 44 25 29 0d 03 02 12 |%, SaveB|MD%)....|
|000009e0| 20 20 20 20 20 20 f2 5f | 53 61 76 65 54 6f 0d 03 | ._|SaveTo..|
|000009f0| 0c 08 20 20 20 cd 0d 03 | 16 08 20 20 20 3a 0d 03 |.. ...|.. :..|
|00000a00| 20 05 e1 0d 03 2a 05 3a | 0d 03 34 24 2a 2a 2a 2a | ....*.:|..4$****|
|00000a10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 03 3e 22 |********|****..>"|
|00000a30| f4 20 27 50 72 65 73 73 | 27 20 61 20 62 75 74 74 |. 'Press|' a butt|
|00000a40| 6f 6e 20 69 6e 20 61 20 | 77 69 6e 64 6f 77 0d 03 |on in a |window..|
|00000a50| 48 1e f4 20 55 73 65 73 | 3a 20 50 52 4f 43 5f 53 |H.. Uses|: PROC_S|
|00000a60| 65 74 49 63 6f 6e 43 6f | 6c 6f 75 72 0d 03 52 24 |etIconCo|lour..R$|
|00000a70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a90| 0d 03 5c 33 dd 20 f2 5f | 42 75 74 74 6f 6e 50 72 |..\3. ._|ButtonPr|
|00000aa0| 65 73 73 28 57 69 6e 64 | 6f 77 25 2c 20 46 72 6f |ess(Wind|ow%, Fro|
|00000ab0| 6e 74 25 2c 20 4c 69 67 | 68 74 25 2c 20 44 61 72 |nt%, Lig|ht%, Dar|
|00000ac0| 6b 25 29 0d 03 66 11 20 | 20 20 ea 20 54 69 6d 65 |k%)..f. | . Time|
|00000ad0| 4e 6f 77 25 0d 03 70 2a | 20 20 20 f2 5f 53 65 74 |Now%..p*| ._Set|
|00000ae0| 49 63 6f 6e 43 6f 6c 6f | 75 72 28 57 69 6e 64 6f |IconColo|ur(Windo|
|00000af0| 77 25 2c 20 4c 69 67 68 | 74 25 2c 20 34 29 0d 03 |w%, Ligh|t%, 4)..|
|00000b00| 7a 29 20 20 20 f2 5f 53 | 65 74 49 63 6f 6e 43 6f |z) ._S|etIconCo|
|00000b10| 6c 6f 75 72 28 57 69 6e | 64 6f 77 25 2c 20 44 61 |lour(Win|dow%, Da|
|00000b20| 72 6b 25 2c 20 30 29 0d | 03 84 2b 20 20 20 f2 5f |rk%, 0).|..+ ._|
|00000b30| 53 65 74 49 63 6f 6e 43 | 6f 6c 6f 75 72 28 57 69 |SetIconC|olour(Wi|
|00000b40| 6e 64 6f 77 25 2c 20 46 | 72 6f 6e 74 25 2c 20 31 |ndow%, F|ront%, 1|
|00000b50| 34 29 0d 03 8e 13 20 20 | 20 54 69 6d 65 4e 6f 77 |4).... | TimeNow|
|00000b60| 25 20 3d 20 91 0d 03 98 | 08 20 20 20 f5 0d 03 a2 |% = ....|. ....|
|00000b70| 18 20 20 20 fd 20 91 20 | 3e 20 54 69 6d 65 4e 6f |. . . |> TimeNo|
|00000b80| 77 25 2b 32 35 0d 03 ac | 2a 20 20 20 f2 5f 53 65 |w%+25...|* ._Se|
|00000b90| 74 49 63 6f 6e 43 6f 6c | 6f 75 72 28 57 69 6e 64 |tIconCol|our(Wind|
|00000ba0| 6f 77 25 2c 20 4c 69 67 | 68 74 25 2c 20 30 29 0d |ow%, Lig|ht%, 0).|
|00000bb0| 03 b6 29 20 20 20 f2 5f | 53 65 74 49 63 6f 6e 43 |..) ._|SetIconC|
|00000bc0| 6f 6c 6f 75 72 28 57 69 | 6e 64 6f 77 25 2c 20 44 |olour(Wi|ndow%, D|
|00000bd0| 61 72 6b 25 2c 20 34 29 | 0d 03 c0 2a 20 20 20 f2 |ark%, 4)|...* .|
|00000be0| 5f 53 65 74 49 63 6f 6e | 43 6f 6c 6f 75 72 28 57 |_SetIcon|Colour(W|
|00000bf0| 69 6e 64 6f 77 25 2c 20 | 46 72 6f 6e 74 25 2c 20 |indow%, |Front%, |
|00000c00| 31 29 0d 03 ca 05 e1 0d | 03 d4 05 3a 0d 03 de 30 |1)......|...:...0|
|00000c10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 03 e8 2e |********|****....|
|00000c40| f4 20 43 68 61 6e 67 65 | 20 74 68 65 20 63 6f 6c |. Change| the col|
|00000c50| 6f 75 72 20 6f 66 20 61 | 6e 20 69 63 6f 6e 20 69 |our of a|n icon i|
|00000c60| 6e 20 61 20 77 69 6e 64 | 6f 77 0d 03 f2 10 f4 20 |n a wind|ow..... |
|00000c70| 55 73 65 73 3a 20 4e 4f | 4e 45 0d 03 fc 30 2a 2a |Uses: NO|NE...0**|
|00000c80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ca0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 04 06 2e dd 20 |********|**..... |
|00000cb0| f2 5f 53 65 74 49 63 6f | 6e 43 6f 6c 6f 75 72 28 |._SetIco|nColour(|
|00000cc0| 57 69 6e 64 6f 77 25 2c | 20 49 63 6f 6e 25 2c 20 |Window%,| Icon%, |
|00000cd0| 43 6f 6c 6f 75 72 25 29 | 0d 04 10 1a 20 20 20 42 |Colour%)|.... B|
|00000ce0| 6c 6f 63 6b 25 21 30 20 | 20 3d 20 57 69 6e 64 6f |lock%!0 | = Windo|
|00000cf0| 77 25 0d 04 1a 18 20 20 | 20 42 6c 6f 63 6b 25 21 |w%.... | Block%!|
|00000d00| 34 20 20 3d 20 49 63 6f | 6e 25 0d 04 24 20 20 20 |4 = Ico|n%..$ |
|00000d10| 20 42 6c 6f 63 6b 25 21 | 38 20 20 3d 20 43 6f 6c | Block%!|8 = Col|
|00000d20| 6f 75 72 25 20 3c 3c 20 | 32 38 0d 04 2e 1e 20 20 |our% << |28.... |
|00000d30| 20 42 6c 6f 63 6b 25 21 | 31 32 20 3d 20 25 31 31 | Block%!|12 = %11|
|00000d40| 31 31 20 3c 3c 20 32 38 | 0d 04 38 26 20 20 20 c8 |11 << 28|..8& .|
|00000d50| 99 20 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 53 |. "Wimp_|SetIconS|
|00000d60| 74 61 74 65 22 2c 2c 20 | 42 6c 6f 63 6b 25 0d 04 |tate",, |Block%..|
|00000d70| 42 05 e1 0d 04 4c 05 3a | 0d 04 56 49 f4 20 2a 2a |B....L.:|..VI. **|
|00000d80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000d90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000da0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000db0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000dc0| 2a 0d 04 60 49 f4 20 57 | 68 65 6e 20 61 20 6b 65 |*..`I. W|hen a ke|
|00000dd0| 79 20 69 73 20 70 72 65 | 73 73 65 64 2c 20 43 68 |y is pre|ssed, Ch|
|00000de0| 65 63 6b 20 69 66 20 69 | 74 20 63 6f 6e 63 65 72 |eck if i|t concer|
|00000df0| 6e 73 20 6d 65 2e 20 49 | 66 20 6e 6f 74 2c 20 50 |ns me. I|f not, P|
|00000e00| 61 73 73 20 69 74 20 6f | 6e 21 0d 04 6a 28 f4 20 |ass it o|n!..j(. |
|00000e10| 55 73 65 73 3a 20 4f 6e | 6c 79 20 55 53 45 52 20 |Uses: On|ly USER |
|00000e20| 73 75 70 70 6c 69 65 64 | 20 72 6f 75 74 69 6e 65 |supplied| routine|
|00000e30| 73 2e 0d 04 74 49 f4 20 | 2a 2a 2a 2a 2a 2a 2a 2a |s...tI. |********|
|00000e40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000e50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000e60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000e70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 04 7e 1e dd |********|***..~..|
|00000e80| 20 f2 5f 50 72 6f 63 65 | 73 73 4b 65 79 28 4b 65 | ._Proce|ssKey(Ke|
|00000e90| 79 50 72 65 73 73 65 64 | 29 0d 04 88 15 20 20 20 |yPressed|).... |
|00000ea0| ea 20 49 63 6f 6e 25 2c | 49 6e 64 65 78 25 0d 04 |. Icon%,|Index%..|
|00000eb0| 92 15 20 20 20 49 63 6f | 6e 25 3d 42 6c 6f 63 6b |.. Ico|n%=Block|
|00000ec0| 25 21 34 0d 04 9c 17 20 | 20 20 49 6e 64 65 78 25 |%!4.... | Index%|
|00000ed0| 3d 42 6c 6f 63 6b 25 21 | 32 30 0d 04 a6 16 20 20 |=Block%!|20.... |
|00000ee0| 20 c8 8e 20 4b 65 79 50 | 72 65 73 73 65 64 20 ca | .. KeyP|ressed .|
|00000ef0| 0d 04 b0 0f 20 20 20 20 | 20 20 c9 20 26 30 44 0d |.... | . &0D.|
|00000f00| 04 ba 3f 20 20 20 20 20 | 20 20 20 20 f2 5f 42 75 |..? | ._Bu|
|00000f10| 74 74 6f 6e 50 72 65 73 | 73 28 4d 61 69 6e 25 2c |ttonPres|s(Main%,|
|00000f20| 20 53 61 76 65 42 4d 46 | 25 2c 20 53 61 76 65 42 | SaveBMF|%, SaveB|
|00000f30| 4d 4c 25 2c 20 53 61 76 | 65 42 4d 44 25 29 0d 04 |ML%, Sav|eBMD%)..|
|00000f40| c4 15 20 20 20 20 20 20 | 20 20 20 f2 5f 53 61 76 |.. | ._Sav|
|00000f50| 65 54 6f 0d 04 ce 2a 20 | 20 20 20 20 20 7f 20 c8 |eTo...* | . .|
|00000f60| 99 20 22 57 69 6d 70 5f | 50 72 6f 63 65 73 73 4b |. "Wimp_|ProcessK|
|00000f70| 65 79 22 2c 42 6c 6f 63 | 6b 25 21 32 34 0d 04 d8 |ey",Bloc|k%!24...|
|00000f80| 08 20 20 20 cb 0d 04 e2 | 05 e1 0d 04 ec 05 3a 0d |. ....|......:.|
|00000f90| 04 f6 2a f4 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..*. ***|********|
|00000fa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000fb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 05 00 2a f4 20 4d |********|*...*. M|
|00000fc0| 6f 75 73 65 20 27 43 6c | 69 63 6b 27 20 57 68 69 |ouse 'Cl|ick' Whi|
|00000fd0| 6c 73 74 20 4f 76 65 72 | 20 4d 65 6e 75 20 49 74 |lst Over| Menu It|
|00000fe0| 65 6d 2e 0d 05 0a 28 f4 | 20 55 73 65 73 3a 20 4f |em....(.| Uses: O|
|00000ff0| 6e 6c 79 20 55 53 45 52 | 20 73 75 70 70 6c 69 65 |nly USER| supplie|
|00001000| 64 20 72 6f 75 74 69 6e | 65 73 2e 0d 05 14 2a f4 |d routin|es....*.|
|00001010| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|00001020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001030| 2a 2a 2a 2a 2a 0d 05 1e | 15 dd 20 f2 5f 4d 65 6e |*****...|.. ._Men|
|00001040| 75 53 65 6c 65 63 74 69 | 6f 6e 0d 05 28 1d 20 20 |uSelecti|on..(. |
|00001050| 20 e7 20 49 63 6f 6e 42 | 61 72 4d 65 6e 75 41 63 | . IconB|arMenuAc|
|00001060| 74 69 76 65 25 20 8c 0d | 05 32 17 20 20 20 20 20 |tive% ..|.2. |
|00001070| 20 c8 8e 20 42 6c 6f 63 | 6b 25 21 30 20 ca 0d 05 | .. Bloc|k%!0 ...|
|00001080| 3c 32 20 20 20 20 20 20 | 20 20 20 c9 20 30 20 3a |<2 | . 0 :|
|00001090| 20 f4 20 3c 53 65 6c 65 | 63 74 3e 20 6f 6e 20 22 | . <Sele|ct> on "|
|000010a0| 49 6e 66 6f 22 20 69 73 | 20 69 67 6e 6f 72 65 64 |Info" is| ignored|
|000010b0| 0d 05 46 45 20 20 20 20 | 20 20 20 20 20 c9 20 31 |..FE | . 1|
|000010c0| 20 3a 20 f2 5f 43 6c 6f | 73 65 44 6f 77 6e 20 3a | : ._Clo|seDown :|
|000010d0| 20 f4 20 3c 53 65 6c 65 | 63 74 3e 20 6f 6e 20 22 | . <Sele|ct> on "|
|000010e0| 71 75 69 74 22 20 63 61 | 75 73 65 73 20 73 68 75 |quit" ca|uses shu|
|000010f0| 74 64 6f 77 6e 0d 05 50 | 0b 20 20 20 20 20 20 cb |tdown..P|. .|
|00001100| 0d 05 5a 08 20 20 20 cd | 0d 05 64 08 20 20 20 3a |..Z. .|..d. :|
|00001110| 0d 05 6e 20 20 20 20 e7 | 20 4d 61 69 6e 57 69 6e |..n .| MainWin|
|00001120| 64 6f 77 4d 65 6e 75 41 | 63 74 69 76 65 25 20 8c |dowMenuA|ctive% .|
|00001130| 0d 05 78 17 20 20 20 20 | 20 20 c8 8e 20 42 6c 6f |..x. | .. Blo|
|00001140| 63 6b 25 21 30 20 ca 0d | 05 82 27 20 20 20 20 20 |ck%!0 ..|..' |
|00001150| 20 20 20 20 c9 20 31 20 | 3a 20 f2 5f 53 65 6c 65 | . 1 |: ._Sele|
|00001160| 63 74 46 72 6f 6d 46 6f | 6e 74 4d 65 6e 75 0d 05 |ctFromFo|ntMenu..|
|00001170| 8c 1b 20 20 20 20 20 20 | 20 20 20 c9 20 32 20 3a |.. | . 2 :|
|00001180| 20 f2 5f 53 61 76 65 54 | 6f 0d 05 96 0b 20 20 20 | ._SaveT|o.... |
|00001190| 20 20 20 cb 0d 05 a0 08 | 20 20 20 cd 0d 05 aa 08 | .....| .....|
|000011a0| 20 20 20 3a 0d 05 b4 05 | e1 0d 05 be 05 3a 0d 05 | :....|.....:..|
|000011b0| c8 20 f4 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. . ****|********|
|000011c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 05 |********|******..|
|000011d0| d2 20 f4 20 52 65 64 72 | 61 77 20 74 68 65 20 73 |. . Redr|aw the s|
|000011e0| 70 65 63 69 66 69 69 65 | 64 20 69 63 6f 6e 0d 05 |pecifiie|d icon..|
|000011f0| dc 10 f4 20 55 73 65 73 | 3a 20 4e 4f 4e 45 0d 05 |... Uses|: NONE..|
|00001200| e6 20 f4 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. . ****|********|
|00001210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 05 |********|******..|
|00001220| f0 1d dd 20 f2 5f 52 65 | 64 72 61 77 28 57 69 6e |... ._Re|draw(Win|
|00001230| 64 6f 77 25 2c 49 63 6f | 6e 25 29 0d 05 fa 17 20 |dow%,Ico|n%).... |
|00001240| 20 20 42 6c 6f 63 6b 25 | 21 30 3d 57 69 6e 64 6f | Block%|!0=Windo|
|00001250| 77 25 0d 06 04 15 20 20 | 20 42 6c 6f 63 6b 25 21 |w%.... | Block%!|
|00001260| 34 3d 49 63 6f 6e 25 0d | 06 0e 25 20 20 20 c8 99 |4=Icon%.|..% ..|
|00001270| 20 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 | "Wimp_G|etIconSt|
|00001280| 61 74 65 22 2c 2c 42 6c | 6f 63 6b 25 0d 06 18 49 |ate",,Bl|ock%...I|
|00001290| 20 20 20 c8 99 20 22 57 | 69 6d 70 5f 46 6f 72 63 | .. "W|imp_Forc|
|000012a0| 65 52 65 64 72 61 77 22 | 2c 4d 61 69 6e 25 2c 42 |eRedraw"|,Main%,B|
|000012b0| 6c 6f 63 6b 25 21 38 2c | 42 6c 6f 63 6b 25 21 31 |lock%!8,|Block%!1|
|000012c0| 32 2c 42 6c 6f 63 6b 25 | 21 31 36 2c 42 6c 6f 63 |2,Block%|!16,Bloc|
|000012d0| 6b 25 21 32 30 0d 06 22 | 05 e1 0d 06 2c 05 3a 0d |k%!20.."|....,.:.|
|000012e0| 06 36 49 f4 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.6I. ***|********|
|000012f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001300| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001310| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001320| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 06 40 49 f4 20 57 68 |********|..@I. Wh|
|00001330| 65 6e 20 61 20 6d 65 73 | 73 61 67 65 20 69 73 20 |en a mes|sage is |
|00001340| 72 65 63 65 69 76 65 64 | 2c 20 43 6f 6e 74 72 6f |received|, Contro|
|00001350| 6c 20 69 73 20 70 61 73 | 73 65 64 20 74 6f 20 68 |l is pas|sed to h|
|00001360| 65 72 65 20 66 6f 72 20 | 64 65 63 6f 64 69 6e 67 |ere for |decoding|
|00001370| 2e 0d 06 4a 28 f4 20 55 | 73 65 73 3a 20 46 4e 5f |...J(. U|ses: FN_|
|00001380| 52 65 61 64 53 74 72 69 | 6e 67 20 50 52 4f 43 5f |ReadStri|ng PROC_|
|00001390| 43 6c 6f 73 65 44 6f 77 | 6e 0d 06 54 49 f4 20 2a |CloseDow|n..TI. *|
|000013a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013e0| 2a 2a 0d 06 5e 1f dd 20 | f2 5f 44 65 63 6f 64 65 |**..^.. |._Decode|
|000013f0| 4d 65 73 73 61 67 65 28 | 52 65 71 75 65 73 74 25 |Message(|Request%|
|00001400| 29 0d 06 68 14 20 20 20 | c8 8e 20 52 65 71 75 65 |)..h. |.. Reque|
|00001410| 73 74 25 20 ca 0d 06 72 | 20 20 20 20 20 20 20 c9 |st% ...r| .|
|00001420| 20 30 20 20 20 20 20 20 | 3a 20 f2 5f 43 6c 6f 73 | 0 |: ._Clos|
|00001430| 65 44 6f 77 6e 0d 06 7c | 50 20 20 20 20 20 20 c9 |eDown..||P .|
|00001440| 20 26 34 30 30 43 32 20 | 3a 20 e7 20 a4 5f 52 65 | &400C2 |: . ._Re|
|00001450| 61 64 53 74 72 69 6e 67 | 28 42 6c 6f 63 6b 25 2b |adString|(Block%+|
|00001460| 32 38 29 3d 4d 79 54 61 | 73 6b 4e 61 6d 65 24 20 |28)=MyTa|skName$ |
|00001470| 80 20 42 6c 6f 63 6b 25 | 21 34 3c 3e 20 4d 79 5f |. Block%|!4<> My_|
|00001480| 69 64 25 20 8c 0d 06 86 | 71 20 20 20 20 20 20 20 |id% ....|q |
|00001490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000014a0| f4 20 41 6e 6f 74 68 65 | 72 20 41 70 70 6c 69 63 |. Anothe|r Applic|
|000014b0| 61 74 69 6f 6e 20 77 69 | 74 68 20 74 68 65 20 73 |ation wi|th the s|
|000014c0| 61 6d 65 20 6e 61 6d 65 | 20 69 73 20 74 72 79 69 |ame name| is tryi|
|000014d0| 6e 67 20 74 6f 20 73 74 | 61 72 74 20 75 70 2c 20 |ng to st|art up, |
|000014e0| 74 65 6c 6c 20 69 74 20 | 74 6f 20 62 75 67 67 65 |tell it |to bugge|
|000014f0| 72 20 6f 66 66 21 0d 06 | 90 26 20 20 20 20 20 20 |r off!..|.& |
|00001500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001510| 20 42 6c 6f 63 6b 25 21 | 31 36 3d 30 0d 06 9a 43 | Block%!|16=0...C|
|00001520| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001530| 20 20 20 20 20 20 20 c8 | 99 20 22 57 69 6d 70 5f | .|. "Wimp_|
|00001540| 53 65 6e 64 4d 65 73 73 | 61 67 65 22 2c 31 37 2c |SendMess|age",17,|
|00001550| 42 6c 6f 63 6b 25 2c 42 | 6c 6f 63 6b 25 21 34 0d |Block%,B|lock%!4.|
|00001560| 06 a4 19 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |... | |
|00001570| 20 20 20 20 20 20 20 cd | 0d 06 ae 08 20 20 20 cb | .|.... .|
|00001580| 0d 06 b8 05 e1 0d 06 c2 | 05 3a 0d 06 cc 3b f4 20 |........|.:...;. |
|00001590| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000015a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000015b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000015c0| 2a 2a 2a 2a 2a 0d 06 d6 | 3b f4 20 52 65 61 64 20 |*****...|;. Read |
|000015d0| 61 20 73 74 72 69 6e 67 | 20 66 72 6f 6d 20 61 20 |a string| from a |
|000015e0| 70 6f 69 6e 74 65 72 2c | 20 75 73 69 6e 67 20 61 |pointer,| using a|
|000015f0| 20 7a 65 72 6f 2d 74 65 | 72 6d 69 6e 61 74 6f 72 | zero-te|rminator|
|00001600| 0d 06 e0 10 f4 20 55 73 | 65 73 3a 20 4e 4f 4e 45 |..... Us|es: NONE|
|00001610| 0d 06 ea 3b f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...;. **|********|
|00001620| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001630| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001640| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 06 f4 1c dd |********|***.....|
|00001650| 20 a4 5f 52 65 61 64 53 | 74 72 69 6e 67 28 50 6f | ._ReadS|tring(Po|
|00001660| 69 6e 74 65 72 25 29 0d | 06 fe 18 20 20 20 ea 20 |inter%).|... . |
|00001670| 53 74 72 69 6e 67 24 2c | 4c 65 6e 67 74 68 25 0d |String$,|Length%.|
|00001680| 07 08 16 20 20 20 c8 95 | 20 3f 50 6f 69 6e 74 65 |... ..| ?Pointe|
|00001690| 72 25 3c 3e 30 0d 07 12 | 1d 20 20 20 20 20 20 53 |r%<>0...|. S|
|000016a0| 74 72 69 6e 67 24 2b 3d | bd 3f 50 6f 69 6e 74 65 |tring$+=|.?Pointe|
|000016b0| 72 25 0d 07 1c 20 20 20 | 20 20 20 20 50 6f 69 6e |r%... | Poin|
|000016c0| 74 65 72 25 2b 3d 31 3a | 4c 65 6e 67 74 68 25 2b |ter%+=1:|Length%+|
|000016d0| 3d 31 0d 07 26 37 20 20 | 20 20 20 20 e7 20 4c 65 |=1..&7 | . Le|
|000016e0| 6e 67 74 68 25 3e 35 30 | 20 8c 20 f1 53 74 72 69 |ngth%>50| . .Stri|
|000016f0| 6e 67 24 3a 85 20 30 2c | 22 53 74 72 69 6e 67 20 |ng$:. 0,|"String |
|00001700| 74 6f 6f 20 4c 6f 6e 67 | 22 0d 07 30 08 20 20 20 |too Long|"..0. |
|00001710| ce 0d 07 3a 0c 3d 53 74 | 72 69 6e 67 24 0d 07 44 |...:.=St|ring$..D|
|00001720| 05 3a 0d 07 4e 41 f4 20 | 2a 2a 2a 2a 2a 2a 2a 2a |.:..NA. |********|
|00001730| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001740| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001750| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001760| 2a 2a 2a 0d 07 58 41 f4 | 20 41 6c 6c 20 57 49 4d |***..XA.| All WIM|
|00001770| 50 20 50 72 6f 67 72 61 | 6d 73 20 73 68 6f 75 6c |P Progra|ms shoul|
|00001780| 64 20 62 65 20 61 62 6c | 65 20 74 6f 20 73 68 75 |d be abl|e to shu|
|00001790| 74 20 74 68 65 6d 73 65 | 6c 76 65 73 20 64 6f 77 |t themse|lves dow|
|000017a0| 6e 21 21 21 0d 07 62 41 | f4 20 2a 2a 2a 2a 2a 2a |n!!!..bA|. ******|
|000017b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000017c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000017d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000017e0| 2a 2a 2a 2a 2a 0d 07 6c | 11 dd 20 f2 5f 43 6c 6f |*****..l|.. ._Clo|
|000017f0| 73 65 44 6f 77 6e 0d 07 | 76 1b 20 20 20 c8 99 20 |seDown..|v. .. |
|00001800| 22 48 6f 75 72 67 6c 61 | 73 73 5f 53 6d 61 73 68 |"Hourgla|ss_Smash|
|00001810| 22 0d 07 80 2b 20 20 20 | c8 99 20 22 57 69 6d 70 |"...+ |.. "Wimp|
|00001820| 5f 43 6c 6f 73 65 44 6f | 77 6e 22 2c 4d 79 5f 69 |_CloseDo|wn",My_i|
|00001830| 64 25 2c 26 34 42 35 33 | 34 31 35 34 0d 07 8a 13 |d%,&4B53|4154....|
|00001840| 20 20 20 c8 99 20 22 4f | 53 5f 45 78 69 74 22 0d | .. "O|S_Exit".|
|00001850| 07 94 05 e1 0d 07 9e 05 | 3a 0d 07 a8 4c f4 20 2a |........|:...L. *|
|00001860| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001870| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001880| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001890| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000018a0| 2a 2a 2a 2a 2a 0d 07 b2 | 4c f4 20 54 68 69 73 20 |*****...|L. This |
|000018b0| 69 73 20 70 75 72 65 6c | 79 20 66 6f 72 20 70 72 |is purel|y for pr|
|000018c0| 6f 67 72 61 6d 20 76 61 | 72 69 61 62 6c 65 73 20 |ogram va|riables |
|000018d0| 61 6e 64 20 69 73 20 6e | 6f 74 68 69 6e 67 20 74 |and is n|othing t|
|000018e0| 6f 20 64 6f 20 77 69 74 | 68 20 52 69 73 63 5f 4f |o do wit|h Risc_O|
|000018f0| 53 0d 07 bc 27 f4 20 55 | 73 65 73 3a 20 4f 6e 6c |S...'. U|ses: Onl|
|00001900| 79 20 55 73 65 72 20 53 | 75 70 70 6c 69 65 64 20 |y User S|upplied |
|00001910| 52 6f 75 74 69 6e 65 73 | 0d 07 c6 4c f4 20 2a 2a |Routines|...L. **|
|00001920| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001930| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001940| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001950| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001960| 2a 2a 2a 2a 0d 07 d0 24 | dd 20 f2 5f 49 6e 69 74 |****...$|. ._Init|
|00001970| 69 61 6c 69 73 65 5f 50 | 72 6f 67 72 61 6d 5f 56 |ialise_P|rogram_V|
|00001980| 61 72 69 61 62 6c 65 73 | 0d 07 da 20 20 20 20 4d |ariables|... M|
|00001990| 79 54 61 73 6b 4e 61 6d | 65 24 3d 22 4d 61 6b 65 |yTaskNam|e$="Make|
|000019a0| 20 42 69 74 4d 61 70 22 | 0d 07 e4 27 20 20 20 49 | BitMap"|...' I|
|000019b0| 63 6f 6e 42 61 72 25 3d | 20 2d 32 20 3a 20 53 68 |conBar%=| -2 : Sh|
|000019c0| 6f 77 46 6f 6e 74 4e 61 | 6d 65 25 3d 20 31 33 0d |owFontNa|me%= 13.|
|000019d0| 07 ee 30 20 20 20 53 61 | 76 65 42 4d 46 25 3d 33 |..0 Sa|veBMF%=3|
|000019e0| 30 20 3a 20 53 61 76 65 | 42 4d 4c 25 3d 32 39 20 |0 : Save|BML%=29 |
|000019f0| 3a 20 53 61 76 65 42 4d | 44 25 20 3d 20 32 38 0d |: SaveBM|D% = 28.|
|00001a00| 07 f8 59 20 20 20 f4 20 | 52 65 61 64 20 74 68 65 |..Y . |Read the|
|00001a10| 20 76 61 6c 75 65 20 6f | 66 20 74 68 65 20 73 79 | value o|f the sy|
|00001a20| 73 74 65 6d 20 76 61 72 | 69 61 62 6c 65 20 73 65 |stem var|iable se|
|00001a30| 74 20 75 70 20 69 6e 20 | 21 52 75 6e 20 69 6e 74 |t up in |!Run int|
|00001a40| 6f 20 74 68 65 20 76 61 | 6c 75 65 20 4d 61 78 54 |o the va|lue MaxT|
|00001a50| 79 70 65 46 61 63 65 25 | 0d 08 02 3d 20 20 20 c8 |ypeFace%|...= .|
|00001a60| 99 20 22 4f 53 5f 52 65 | 61 64 56 61 72 56 61 6c |. "OS_Re|adVarVal|
|00001a70| 22 2c 22 4e 75 6d 62 65 | 72 4f 66 46 6f 6e 74 46 |","Numbe|rOfFontF|
|00001a80| 61 6d 69 6c 69 65 73 22 | 2c 42 6c 6f 63 6b 25 2c |amilies"|,Block%,|
|00001a90| 34 2c 30 2c 33 0d 08 0c | 35 20 20 20 c8 99 20 22 |4,0,3...|5 .. "|
|00001aa0| 4f 53 5f 52 65 61 64 55 | 6e 73 69 67 6e 65 64 22 |OS_ReadU|nsigned"|
|00001ab0| 2c 30 2c 42 6c 6f 63 6b | 25 20 b8 20 2c 2c 4d 61 |,0,Block|% . ,,Ma|
|00001ac0| 78 54 79 70 65 46 61 63 | 65 25 0d 08 16 2e 20 20 |xTypeFac|e%.... |
|00001ad0| 20 de 20 49 6e 64 69 72 | 65 63 74 65 64 46 6f 6e | . Indir|ectedFon|
|00001ae0| 74 44 61 74 61 25 20 4d | 61 78 54 79 70 65 46 61 |tData% M|axTypeFa|
|00001af0| 63 65 25 2a 28 33 36 29 | 0d 08 20 29 20 20 20 de |ce%*(36)|.. ) .|
|00001b00| 20 53 75 62 4d 65 6e 75 | 49 6e 64 69 72 65 63 74 | SubMenu|Indirect|
|00001b10| 65 64 25 28 4d 61 78 54 | 79 70 65 46 61 63 65 25 |ed%(MaxT|ypeFace%|
|00001b20| 29 0d 08 2a 22 20 20 20 | de 20 4d 65 6e 75 48 61 |)..*" |. MenuHa|
|00001b30| 6e 64 6c 65 25 28 4d 61 | 78 54 79 70 65 46 61 63 |ndle%(Ma|xTypeFac|
|00001b40| 65 25 29 0d 08 34 59 20 | 20 20 de 20 4d 65 6e 75 |e%)..4Y | . Menu|
|00001b50| 53 74 72 75 63 74 75 72 | 65 25 20 28 28 32 34 2a |Structur|e% ((24*|
|00001b60| 37 2b 32 38 2a 32 29 2a | 4d 61 78 54 79 70 65 46 |7+28*2)*|MaxTypeF|
|00001b70| 61 63 65 25 29 20 3a 20 | f4 20 61 6c 6c 6f 77 73 |ace%) : |. allows|
|00001b80| 20 66 6f 72 20 36 20 66 | 6f 6e 74 73 20 70 65 72 | for 6 f|onts per|
|00001b90| 20 66 6f 6e 74 20 46 61 | 6d 69 6c 79 0d 08 3e 05 | font Fa|mily..>.|
|00001ba0| e1 0d 08 48 05 3a 0d 08 | 52 70 f4 20 2a 2a 2a 2a |...H.:..|Rp. ****|
|00001bb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001bc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001bd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001be0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001bf0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001c00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001c10| 2a 2a 2a 2a 2a 2a 0d 08 | 5c 70 f4 20 53 74 61 72 |******..|\p. Star|
|00001c20| 74 20 55 70 20 70 72 6f | 67 72 61 6d 20 61 73 20 |t Up pro|gram as |
|00001c30| 61 20 74 61 73 6b 20 77 | 69 74 68 20 6e 61 6d 65 |a task w|ith name|
|00001c40| 20 3c 4d 79 54 61 73 6b | 4e 61 6d 65 24 3e 20 77 | <MyTask|Name$> w|
|00001c50| 68 69 63 68 20 69 73 20 | 64 65 63 6c 61 72 65 64 |hich is |declared|
|00001c60| 20 69 6e 20 50 52 4f 43 | 5f 49 6e 69 74 69 61 6c | in PROC|_Initial|
|00001c70| 69 73 65 5f 50 72 6f 67 | 72 61 6d 5f 56 61 72 69 |ise_Prog|ram_Vari|
|00001c80| 61 62 6c 65 73 2e 0d 08 | 66 26 f4 20 41 6e 64 20 |ables...|f&. And |
|00001c90| 49 6e 73 74 61 6c 6c 20 | 69 63 6f 6e 20 6f 6e 20 |Install |icon on |
|00001ca0| 74 68 65 20 49 63 6f 6e | 20 62 61 72 0d 08 70 52 |the Icon| bar..pR|
|00001cb0| f4 20 55 73 65 73 3a 20 | 46 4e 5f 43 72 65 61 74 |. Uses: |FN_Creat|
|00001cc0| 65 49 63 6f 6e 42 61 72 | 49 63 6f 6e 20 50 52 4f |eIconBar|Icon PRO|
|00001cd0| 43 5f 49 6e 69 74 69 61 | 6c 69 73 65 5f 53 70 72 |C_Initia|lise_Spr|
|00001ce0| 69 74 65 73 20 50 52 4f | 43 5f 49 6e 69 74 69 61 |ites PRO|C_Initia|
|00001cf0| 6c 69 73 65 5f 54 65 6d | 70 6c 61 74 65 73 0d 08 |lise_Tem|plates..|
|00001d00| 7a 70 f4 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |zp. ****|********|
|00001d10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 08 |********|******..|
|00001d70| 84 1e dd 20 f2 5f 49 6e | 69 74 69 61 6c 69 73 65 |... ._In|itialise|
|00001d80| 5f 57 49 4d 50 5f 53 79 | 73 74 65 6d 0d 08 8e 43 |_WIMP_Sy|stem...C|
|00001d90| 20 20 20 c8 99 20 22 57 | 69 6d 70 5f 49 6e 69 74 | .. "W|imp_Init|
|00001da0| 69 61 6c 69 73 65 22 2c | 32 30 30 2c 26 34 42 35 |ialise",|200,&4B5|
|00001db0| 33 34 31 35 34 2c 4d 79 | 54 61 73 6b 4e 61 6d 65 |34154,My|TaskName|
|00001dc0| 24 20 b8 20 76 65 72 25 | 2c 4d 79 5f 69 64 25 0d |$ . ver%|,My_id%.|
|00001dd0| 08 98 2d 20 20 20 49 63 | 6f 6e 42 61 72 49 63 6f |..- Ic|onBarIco|
|00001de0| 6e 48 61 6e 64 6c 65 25 | 3d a4 5f 43 72 65 61 74 |nHandle%|=._Creat|
|00001df0| 65 49 63 6f 6e 42 61 72 | 49 63 6f 6e 0d 08 a2 1b |eIconBar|Icon....|
|00001e00| 20 20 20 f2 5f 49 6e 69 | 74 69 61 6c 69 73 65 5f | ._Ini|tialise_|
|00001e10| 53 70 72 69 74 65 73 0d | 08 ac 1d 20 20 20 f2 5f |Sprites.|... ._|
|00001e20| 49 6e 69 74 69 61 6c 69 | 73 65 5f 54 65 6d 70 6c |Initiali|se_Templ|
|00001e30| 61 74 65 73 0d 08 b6 6e | 20 20 20 4d 61 73 6b 25 |ates...n| Mask%|
|00001e40| 3d 25 31 31 30 30 30 30 | 30 31 31 30 30 30 31 20 |=%110000|0110001 |
|00001e50| 20 20 20 3a 20 f4 20 4d | 61 73 6b 20 4f 75 74 20 | : . M|ask Out |
|00001e60| 63 6f 64 65 73 20 66 6f | 72 20 47 61 69 6e 2f 4c |codes fo|r Gain/L|
|00001e70| 6f 73 65 20 43 61 72 65 | 74 2c 20 50 6f 69 6e 74 |ose Care|t, Point|
|00001e80| 65 72 20 45 6e 74 65 72 | 2f 4c 65 61 76 65 20 57 |er Enter|/Leave W|
|00001e90| 69 6e 64 6f 77 20 26 20 | 4e 75 6c 6c 20 45 76 65 |indow & |Null Eve|
|00001ea0| 6e 74 0d 08 c0 05 e1 0d | 08 ca 05 3a 0d 08 d4 43 |nt......|...:...C|
|00001eb0| f4 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. ******|********|
|00001ec0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ed0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ee0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00001ef0| 08 de 43 f4 20 54 68 69 | 73 20 74 61 6b 65 73 20 |..C. Thi|s takes |
|00001f00| 61 20 53 70 72 69 74 65 | 20 61 6e 64 20 6d 61 6b |a Sprite| and mak|
|00001f10| 65 73 20 69 74 20 69 6e | 74 6f 20 61 6e 20 49 63 |es it in|to an Ic|
|00001f20| 6f 6e 20 46 6f 72 20 74 | 68 65 20 49 63 6f 6e 42 |on For t|he IconB|
|00001f30| 61 72 0d 08 e8 12 52 45 | 4e 20 55 73 65 73 3a 20 |ar....RE|N Uses: |
|00001f40| 4e 4f 4e 45 0d 08 f2 43 | f4 20 2a 2a 2a 2a 2a 2a |NONE...C|. ******|
|00001f50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001f60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001f70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001f80| 2a 2a 2a 2a 2a 2a 2a 0d | 08 fc 19 dd 20 a4 5f 43 |*******.|.... ._C|
|00001f90| 72 65 61 74 65 49 63 6f | 6e 42 61 72 49 63 6f 6e |reateIco|nBarIcon|
|00001fa0| 0d 09 06 0e 20 20 20 ea | 20 49 63 6f 6e 25 0d 09 |.... .| Icon%..|
|00001fb0| 10 12 20 20 20 42 6c 6f | 63 6b 25 21 30 3d 2d 31 |.. Blo|ck%!0=-1|
|00001fc0| 0d 09 1a 11 20 20 20 42 | 6c 6f 63 6b 25 21 34 3d |.... B|lock%!4=|
|00001fd0| 30 0d 09 24 11 20 20 20 | 42 6c 6f 63 6b 25 21 38 |0..$. |Block%!8|
|00001fe0| 3d 30 0d 09 2e 13 20 20 | 20 42 6c 6f 63 6b 25 21 |=0.... | Block%!|
|00001ff0| 31 32 3d 36 38 0d 09 38 | 13 20 20 20 42 6c 6f 63 |12=68..8|. Bloc|
|00002000| 6b 25 21 31 36 3d 36 38 | 0d 09 42 20 20 20 20 42 |k%!16=68|..B B|
|00002010| 6c 6f 63 6b 25 21 32 30 | 3d 25 31 30 30 30 30 30 |lock%!20|=%100000|
|00002020| 30 30 30 30 30 30 31 30 | 0d 09 4c 20 20 20 20 24 |00000010|..L $|
|00002030| 28 42 6c 6f 63 6b 25 2b | 32 34 29 3d 22 21 4d 61 |(Block%+|24)="!Ma|
|00002040| 6b 42 69 74 4d 61 70 22 | 0d 09 56 2b 20 20 20 c8 |kBitMap"|..V+ .|
|00002050| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 49 63 |. "Wimp_|CreateIc|
|00002060| 6f 6e 22 2c 2c 42 6c 6f | 63 6b 25 20 b8 20 49 63 |on",,Blo|ck% . Ic|
|00002070| 6f 6e 25 0d 09 60 0a 3d | 49 63 6f 6e 25 0d 09 6a |on%..`.=|Icon%..j|
|00002080| 05 3a 0d 09 74 42 f4 20 | 2a 2a 2a 2a 2a 2a 2a 2a |.:..tB. |********|
|00002090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000020a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000020b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000020c0| 2a 2a 2a 2a 0d 09 7e 42 | f4 20 49 6e 69 74 69 61 |****..~B|. Initia|
|000020d0| 6c 69 73 65 73 20 55 73 | 65 72 20 53 70 72 69 74 |lises Us|er Sprit|
|000020e0| 65 20 41 72 65 61 2c 20 | 61 6e 64 20 4c 6f 61 64 |e Area, |and Load|
|000020f0| 73 20 73 70 72 69 74 65 | 20 66 69 6c 65 20 69 6e |s sprite| file in|
|00002100| 74 6f 20 69 74 2e 0d 09 | 88 2a f4 20 46 72 6f 6d |to it...|.*. From|
|00002110| 20 3c 52 65 73 6f 75 72 | 63 65 73 24 44 69 72 3e | <Resour|ces$Dir>|
|00002120| 20 64 65 66 69 6e 65 64 | 20 69 6e 20 21 52 75 6e | defined| in !Run|
|00002130| 0d 09 92 10 f4 20 55 73 | 65 73 3a 20 4e 4f 4e 45 |..... Us|es: NONE|
|00002140| 0d 09 9c 42 f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...B. **|********|
|00002150| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002160| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002180| 2a 2a 0d 09 a6 1a dd 20 | f2 5f 49 6e 69 74 69 61 |**..... |._Initia|
|00002190| 6c 69 73 65 5f 53 70 72 | 69 74 65 73 0d 09 b0 28 |lise_Spr|ites...(|
|000021a0| 20 20 20 54 65 6d 70 25 | 3d ad 20 22 3c 52 65 73 | Temp%|=. "<Res|
|000021b0| 6f 75 72 63 65 73 24 44 | 69 72 3e 2e 53 70 72 69 |ources$D|ir>.Spri|
|000021c0| 74 65 73 22 0d 09 ba 1e | 20 20 20 46 69 6c 65 4c |tes"....| FileL|
|000021d0| 65 6e 67 74 68 25 3d 34 | 2b 28 a2 23 54 65 6d 70 |ength%=4|+(.#Temp|
|000021e0| 25 29 0d 09 c4 0f 20 20 | 20 d9 20 23 54 65 6d 70 |%).... | . #Temp|
|000021f0| 25 0d 09 ce 20 20 20 20 | de 20 53 70 72 69 74 65 |%... |. Sprite|
|00002200| 41 72 65 61 25 20 46 69 | 6c 65 4c 65 6e 67 74 68 |Area% Fi|leLength|
|00002210| 25 0d 09 d8 20 20 20 20 | 53 70 72 69 74 65 41 72 |%... |SpriteAr|
|00002220| 65 61 25 21 30 3d 46 69 | 6c 65 4c 65 6e 67 74 68 |ea%!0=Fi|leLength|
|00002230| 25 0d 09 e2 16 20 20 20 | 53 70 72 69 74 65 41 72 |%.... |SpriteAr|
|00002240| 65 61 25 21 34 3d 30 0d | 09 ec 17 20 20 20 53 70 |ea%!4=0.|... Sp|
|00002250| 72 69 74 65 41 72 65 61 | 25 21 38 3d 31 36 0d 09 |riteArea|%!8=16..|
|00002260| f6 18 20 20 20 53 70 72 | 69 74 65 41 72 65 61 25 |.. Spr|iteArea%|
|00002270| 21 31 32 3d 31 36 0d 0a | 00 42 20 20 20 c8 99 20 |!12=16..|.B .. |
|00002280| 22 4f 53 5f 53 70 72 69 | 74 65 4f 70 22 2c 26 31 |"OS_Spri|teOp",&1|
|00002290| 30 41 2c 53 70 72 69 74 | 65 41 72 65 61 25 2c 22 |0A,Sprit|eArea%,"|
|000022a0| 3c 52 65 73 6f 75 72 63 | 65 73 24 44 69 72 3e 2e |<Resourc|es$Dir>.|
|000022b0| 53 70 72 69 74 65 73 22 | 0d 0a 0a 05 e1 0d 0a 14 |Sprites"|........|
|000022c0| 05 3a 0d 0a 1e 46 f4 20 | 2a 2a 2a 2a 2a 2a 2a 2a |.:...F. |********|
|000022d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000022e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000022f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002300| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 0a 28 46 f4 20 4f 70 |********|..(F. Op|
|00002310| 65 6e 73 20 75 70 20 74 | 68 65 20 74 65 6d 70 6c |ens up t|he templ|
|00002320| 61 74 65 20 66 69 6c 65 | 2c 20 46 6f 6e 64 6c 65 |ate file|, Fondle|
|00002330| 73 20 69 74 2c 20 61 6e | 64 20 74 68 65 6e 20 63 |s it, an|d then c|
|00002340| 72 65 61 74 65 73 20 57 | 69 6e 64 6f 77 73 0d 0a |reates W|indows..|
|00002350| 32 2a f4 20 46 72 6f 6d | 20 3c 52 65 73 6f 75 72 |2*. From| <Resour|
|00002360| 63 65 73 24 44 69 72 3e | 20 64 65 66 69 6e 65 64 |ces$Dir>| defined|
|00002370| 20 69 6e 20 21 52 75 6e | 0d 0a 3c 10 f4 20 55 73 | in !Run|..<.. Us|
|00002380| 65 73 3a 20 4e 4f 4e 45 | 0d 0a 46 46 f4 20 2a 2a |es: NONE|..FF. **|
|00002390| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000023a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000023b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000023c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 0a |********|******..|
|000023d0| 50 1c dd 20 f2 5f 49 6e | 69 74 69 61 6c 69 73 65 |P.. ._In|itialise|
|000023e0| 5f 54 65 6d 70 6c 61 74 | 65 73 0d 0a 5a 12 20 20 |_Templat|es..Z. |
|000023f0| 20 de 20 51 25 20 31 30 | 32 34 2a 34 0d 0a 64 2e | . Q% 10|24*4..d.|
|00002400| 20 20 20 6d 61 78 77 73 | 25 3d 26 39 30 30 20 3a | maxws|%=&900 :|
|00002410| 20 de 20 77 73 25 20 6d | 61 78 77 73 25 20 3a 20 | . ws% m|axws% : |
|00002420| 63 75 72 77 73 25 3d 77 | 73 25 0d 0a 6e 39 20 20 |curws%=w|s%..n9 |
|00002430| 20 c8 99 22 57 69 6d 70 | 5f 4f 70 65 6e 54 65 6d | .."Wimp|_OpenTem|
|00002440| 70 6c 61 74 65 22 2c 2c | 22 3c 52 65 73 6f 75 72 |plate",,|"<Resour|
|00002450| 63 65 73 24 44 69 72 3e | 2e 54 65 6d 70 6c 61 74 |ces$Dir>|.Templat|
|00002460| 65 73 22 0d 0a 78 46 20 | 20 20 c8 99 22 57 69 6d |es"..xF | .."Wim|
|00002470| 70 5f 4c 6f 61 64 54 65 | 6d 70 6c 61 74 65 22 2c |p_LoadTe|mplate",|
|00002480| 2c 51 25 2c 77 73 25 2c | 77 73 25 2b 6d 61 78 77 |,Q%,ws%,|ws%+maxw|
|00002490| 73 25 2c 2d 31 2c 22 69 | 6e 66 6f 22 2c 30 20 b8 |s%,-1,"i|nfo",0 .|
|000024a0| 20 2c 2c 63 75 72 77 73 | 25 0d 0a 82 28 20 20 20 | ,,curws|%...( |
|000024b0| c8 99 22 57 69 6d 70 5f | 43 72 65 61 74 65 57 69 |.."Wimp_|CreateWi|
|000024c0| 6e 64 6f 77 22 2c 2c 51 | 25 20 b8 20 49 6e 66 6f |ndow",,Q|% . Info|
|000024d0| 25 0d 0a 8c 49 20 20 20 | c8 99 22 57 69 6d 70 5f |%...I |.."Wimp_|
|000024e0| 4c 6f 61 64 54 65 6d 70 | 6c 61 74 65 22 2c 2c 51 |LoadTemp|late",,Q|
|000024f0| 25 2c 63 75 72 77 73 25 | 2c 77 73 25 2b 6d 61 78 |%,curws%|,ws%+max|
|00002500| 77 73 25 2c 2d 31 2c 22 | 4d 61 69 6e 22 2c 30 20 |ws%,-1,"|Main",0 |
|00002510| b8 20 2c 2c 63 75 72 77 | 73 25 0d 0a 96 18 20 20 |. ,,curw|s%.... |
|00002520| 20 51 25 21 36 34 3d 53 | 70 72 69 74 65 41 72 65 | Q%!64=S|priteAre|
|00002530| 61 25 0d 0a a0 28 20 20 | 20 c8 99 22 57 69 6d 70 |a%...( | .."Wimp|
|00002540| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|00002550| 51 25 20 b8 20 4d 61 69 | 6e 25 0d 0a aa 1d 20 20 |Q% . Mai|n%.... |
|00002560| 20 c8 99 22 57 69 6d 70 | 5f 43 6c 6f 73 65 54 65 | .."Wimp|_CloseTe|
|00002570| 6d 70 6c 61 74 65 22 0d | 0a b4 05 e1 0d 0a be 05 |mplate".|........|
|00002580| 3a 0d 0a c8 49 f4 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |:...I. *|********|
|00002590| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000025a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000025b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000025c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 0a d2 49 f4 20 |********|**...I. |
|000025d0| 54 68 69 73 20 77 72 69 | 74 65 73 20 6f 76 65 72 |This wri|tes over|
|000025e0| 20 74 68 65 20 74 65 78 | 74 20 69 6e 20 74 68 65 | the tex|t in the|
|000025f0| 20 49 63 6f 6e 2c 20 61 | 6e 64 20 69 74 20 73 68 | Icon, a|nd it sh|
|00002600| 6f 75 6c 64 20 6e 6f 74 | 20 62 65 20 64 6f 6e 65 |ould not| be done|
|00002610| 21 21 21 0d 0a dc 2e f4 | 20 4f 6e 6c 79 20 57 6f |!!!.....| Only Wo|
|00002620| 72 6b 73 20 57 69 74 68 | 20 49 6e 64 69 72 65 63 |rks With| Indirec|
|00002630| 74 65 64 20 54 65 78 74 | 20 53 74 72 69 6e 67 73 |ted Text| Strings|
|00002640| 21 0d 0a e6 10 f4 20 55 | 73 65 73 3a 20 4e 4f 4e |!..... U|ses: NON|
|00002650| 45 0d 0a f0 49 f4 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |E...I. *|********|
|00002660| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002670| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002680| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002690| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 0a fa 3f dd 20 |********|**...?. |
|000026a0| f2 5f 53 65 74 49 63 6f | 6e 54 65 78 74 28 49 63 |._SetIco|nText(Ic|
|000026b0| 6f 6e 48 61 6e 64 6c 65 | 25 2c 57 69 6e 64 6f 77 |onHandle|%,Window|
|000026c0| 48 61 6e 64 6c 65 25 2c | 54 65 78 74 24 2c 4d 61 |Handle%,|Text$,Ma|
|000026d0| 78 4c 65 6e 67 74 68 25 | 29 0d 0b 04 11 20 20 20 |xLength%|).... |
|000026e0| ea 20 50 6f 69 6e 74 65 | 72 25 0d 0b 0e 1d 20 20 |. Pointe|r%.... |
|000026f0| 20 42 6c 6f 63 6b 25 21 | 30 3d 57 69 6e 64 6f 77 | Block%!|0=Window|
|00002700| 48 61 6e 64 6c 65 25 0d | 0b 18 1b 20 20 20 42 6c |Handle%.|... Bl|
|00002710| 6f 63 6b 25 21 34 3d 49 | 63 6f 6e 48 61 6e 64 6c |ock%!4=I|conHandl|
|00002720| 65 25 0d 0b 22 25 20 20 | 20 c8 99 20 22 57 69 6d |e%.."% | .. "Wim|
|00002730| 70 5f 47 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_GetIco|nState",|
|00002740| 2c 42 6c 6f 63 6b 25 0d | 0b 2c 22 20 20 20 e7 20 |,Block%.|.," . |
|00002750| 28 42 6c 6f 63 6b 25 21 | 32 34 20 80 20 28 31 3c |(Block%!|24 . (1<|
|00002760| 3c 38 29 29 3c 3e 30 20 | 8c 0d 0b 36 1c 20 20 20 |<8))<>0 |...6. |
|00002770| 20 20 20 50 6f 69 6e 74 | 65 72 25 3d 42 6c 6f 63 | Point|er%=Bloc|
|00002780| 6b 25 21 32 38 0d 0b 40 | 08 20 20 20 cc 0d 0b 4a |k%!28..@|. ...J|
|00002790| 1c 20 20 20 20 20 20 50 | 6f 69 6e 74 65 72 25 3d |. P|ointer%=|
|000027a0| 42 6c 6f 63 6b 25 2b 32 | 38 0d 0b 54 08 20 20 20 |Block%+2|8..T. |
|000027b0| cd 0d 0b 5e 1c 20 20 20 | e7 20 a9 54 65 78 74 24 |...^. |. .Text$|
|000027c0| 3e 4d 61 78 4c 65 6e 67 | 74 68 25 20 8c 0d 0b 68 |>MaxLeng|th% ...h|
|000027d0| 58 20 20 20 20 20 20 45 | 72 72 6f 72 24 20 3d 20 |X E|rror$ = |
|000027e0| 22 49 6c 6c 65 67 61 6c | 20 61 74 74 65 6d 70 74 |"Illegal| attempt|
|000027f0| 20 74 6f 20 65 78 74 65 | 6e 64 20 49 63 6f 6e 20 | to exte|nd Icon |
|00002800| 74 65 78 74 20 73 74 72 | 69 6e 67 21 20 28 48 61 |text str|ing! (Ha|
|00002810| 6e 64 6c 65 20 22 2b c3 | 28 49 63 6f 6e 48 61 6e |ndle "+.|(IconHan|
|00002820| 64 6c 65 25 29 0d 0b 72 | 4d 20 20 20 20 20 20 45 |dle%)..r|M E|
|00002830| 72 72 6f 72 24 20 3d 20 | 45 72 72 6f 72 24 2b 22 |rror$ = |Error$+"|
|00002840| 20 22 20 2b 20 c3 28 a9 | 28 54 65 78 74 24 29 29 | " + .(.|(Text$))|
|00002850| 20 2b 20 22 2f 22 20 2b | 20 c3 28 4d 61 78 4c 65 | + "/" +| .(MaxLe|
|00002860| 6e 67 74 68 25 29 20 2b | 20 22 2e 29 22 20 2b 20 |ngth%) +| ".)" + |
|00002870| bd 30 0d 0b 7c 17 20 20 | 20 20 20 20 85 20 32 30 |.0..|. | . 20|
|00002880| 30 31 2c 45 72 72 6f 72 | 24 0d 0b 86 08 20 20 20 |01,Error|$.... |
|00002890| cc 0d 0b 90 19 20 20 20 | 20 20 20 24 50 6f 69 6e |..... | $Poin|
|000028a0| 74 65 72 25 3d 54 65 78 | 74 24 0d 0b 9a 08 20 20 |ter%=Tex|t$.... |
|000028b0| 20 cd 0d 0b a4 05 e1 0d | 0b ae 05 3a 0d 0b b8 2c | .......|...:...,|
|000028c0| f4 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. ******|********|
|000028d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000028e0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 0b c2 2c f4 20 54 68 |********|...,. Th|
|000028f0| 65 20 6e 61 6d 65 20 73 | 6f 72 74 20 6f 66 20 73 |e name s|ort of s|
|00002900| 61 79 73 20 69 74 20 61 | 6c 6c 20 72 65 61 6c 6c |ays it a|ll reall|
|00002910| 79 21 21 21 0d 0b cc 10 | f4 20 55 73 65 73 3a 20 |y!!!....|. Uses: |
|00002920| 4e 4f 4e 45 0d 0b d6 2c | f4 20 2a 2a 2a 2a 2a 2a |NONE...,|. ******|
|00002930| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002940| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002950| 0d 0b e0 18 dd 20 f2 5f | 53 65 74 55 70 49 63 6f |..... ._|SetUpIco|
|00002960| 6e 42 61 72 4d 65 6e 75 | 0d 0b ea 0b 20 20 20 ea |nBarMenu|.... .|
|00002970| 20 6d 25 0d 0b f4 35 20 | 20 20 4d 61 69 6e 57 69 | m%...5 | MainWi|
|00002980| 6e 64 6f 77 4d 65 6e 75 | 41 63 74 69 76 65 25 3d |ndowMenu|Active%=|
|00002990| a3 20 3a 20 49 63 6f 6e | 42 61 72 4d 65 6e 75 41 |. : Icon|BarMenuA|
|000029a0| 63 74 69 76 65 25 3d b9 | 0d 0b fe 16 20 20 20 de |ctive%=.|.... .|
|000029b0| 20 6d 65 6e 75 25 20 32 | 38 2b 32 2a 32 34 0d 0c | menu% 2|8+2*24..|
|000029c0| 08 1b 20 20 20 24 6d 65 | 6e 75 25 3d 22 4d 79 54 |.. $me|nu%="MyT|
|000029d0| 61 73 6b 4e 61 6d 65 24 | 22 0d 0c 12 11 20 20 20 |askName$|".... |
|000029e0| 6d 65 6e 75 25 3f 31 32 | 3d 37 0d 0c 1c 11 20 20 |menu%?12|=7.... |
|000029f0| 20 6d 65 6e 75 25 3f 31 | 33 3d 32 0d 0c 26 11 20 | menu%?1|3=2..&. |
|00002a00| 20 20 6d 65 6e 75 25 3f | 31 34 3d 37 0d 0c 30 11 | menu%?|14=7..0.|
|00002a10| 20 20 20 6d 65 6e 75 25 | 3f 31 35 3d 30 0d 0c 3a | menu%|?15=0..:|
|00002a20| 13 20 20 20 6d 65 6e 75 | 25 21 31 36 3d 31 36 30 |. menu|%!16=160|
|00002a30| 0d 0c 44 12 20 20 20 6d | 65 6e 75 25 21 32 30 3d |..D. m|enu%!20=|
|00002a40| 34 30 0d 0c 4e 11 20 20 | 20 6d 65 6e 75 25 21 32 |40..N. | menu%!2|
|00002a50| 34 3d 30 0d 0c 58 12 20 | 20 20 6d 25 3d 6d 65 6e |4=0..X. | m%=men|
|00002a60| 75 25 2b 32 38 0d 0c 62 | 0e 20 20 20 6d 25 21 30 |u%+28..b|. m%!0|
|00002a70| 3d 26 30 0d 0c 6c 30 20 | 20 20 6d 25 21 34 3d 49 |=&0..l0 | m%!4=I|
|00002a80| 6e 66 6f 25 20 20 20 20 | 3a f4 20 6e 61 6d 65 20 |nfo% |:. name |
|00002a90| 66 72 6f 6d 20 74 65 6d | 70 6c 61 74 65 20 6f 70 |from tem|plate op|
|00002aa0| 65 6e 2e 0d 0c 76 1c 20 | 20 20 6d 25 21 38 3d 28 |en...v. | m%!8=(|
|00002ab0| 37 3c 3c 32 34 29 20 84 | 20 25 31 30 30 30 31 0d |7<<24) .| %10001.|
|00002ac0| 0c 80 16 20 20 20 24 28 | 6d 25 2b 31 32 29 3d 22 |... $(|m%+12)="|
|00002ad0| 49 6e 66 6f 22 0d 0c 8a | 0f 20 20 20 6d 25 3d 6d |Info"...|. m%=m|
|00002ae0| 25 2b 32 34 0d 0c 94 0e | 20 20 20 6d 25 21 30 3d |%+24....| m%!0=|
|00002af0| 26 30 0d 0c 9e 0f 20 20 | 20 6d 25 21 30 3d 26 38 |&0.... | m%!0=&8|
|00002b00| 30 0d 0c a8 0d 20 20 20 | 6d 25 21 34 3d 30 0d 0c |0.... |m%!4=0..|
|00002b10| b2 1b 20 20 20 6d 25 21 | 38 3d 28 37 3c 3c 32 34 |.. m%!|8=(7<<24|
|00002b20| 29 84 20 25 31 30 30 30 | 31 0d 0c bc 16 20 20 20 |). %1000|1.... |
|00002b30| 24 28 6d 25 2b 31 32 29 | 3d 22 51 75 69 74 22 0d |$(m%+12)|="Quit".|
|00002b40| 0c c6 31 20 20 20 c8 99 | 22 57 69 6d 70 5f 43 72 |..1 ..|"Wimp_Cr|
|00002b50| 65 61 74 65 4d 65 6e 75 | 22 2c 2c 6d 65 6e 75 25 |eateMenu|",,menu%|
|00002b60| 2c 42 6c 6f 63 6b 25 21 | 30 2d 39 36 2c 31 37 36 |,Block%!|0-96,176|
|00002b70| 0d 0c d0 05 e1 0d 0c da | 05 3a 0d 0c e4 33 f4 20 |........|.:...3. |
|00002b80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002b90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002ba0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 0c ee |********|*****...|
|00002bb0| 2e f4 20 52 65 61 64 20 | 49 6e 66 6f 20 66 6f 72 |.. Read |Info for|
|00002bc0| 20 57 69 6e 64 6f 77 2c | 20 61 6e 64 20 74 68 65 | Window,| and the|
|00002bd0| 6e 20 6f 70 65 6e 20 69 | 74 20 21 0d 0c f8 21 f4 |n open i|t !...!.|
|00002be0| 20 55 73 65 73 3a 20 50 | 52 4f 43 5f 53 65 74 43 | Uses: P|ROC_SetC|
|00002bf0| 61 72 65 74 50 6f 73 69 | 74 69 6f 6e 0d 0d 02 33 |aretPosi|tion...3|
|00002c00| f4 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. ******|********|
|00002c10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002c20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00002c30| 0d 0c 1b dd 20 f2 5f 4f | 70 65 6e 57 69 6e 64 6f |.... ._O|penWindo|
|00002c40| 77 28 48 61 6e 64 6c 65 | 25 29 0d 0d 16 16 20 20 |w(Handle|%).... |
|00002c50| 20 21 42 6c 6f 63 6b 25 | 3d 48 61 6e 64 6c 65 25 | !Block%|=Handle%|
|00002c60| 0d 0d 20 27 20 20 20 c8 | 99 20 22 57 69 6d 70 5f |.. ' .|. "Wimp_|
|00002c70| 47 65 74 57 69 6e 64 6f | 77 53 74 61 74 65 22 2c |GetWindo|wState",|
|00002c80| 2c 42 6c 6f 63 6b 25 0d | 0d 2a 13 20 20 20 42 6c |,Block%.|.*. Bl|
|00002c90| 6f 63 6b 25 21 32 34 3d | 2d 31 0d 0d 34 23 20 20 |ock%!24=|-1..4# |
|00002ca0| 20 c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 | .. "Wim|p_OpenWi|
|00002cb0| 6e 64 6f 77 22 2c 2c 42 | 6c 6f 63 6b 25 0d 0d 3e |ndow",,B|lock%..>|
|00002cc0| 24 20 20 20 f2 5f 53 65 | 74 43 61 72 65 74 50 6f |$ ._Se|tCaretPo|
|00002cd0| 73 69 74 69 6f 6e 28 4d | 61 69 6e 25 2c 33 2c 33 |sition(M|ain%,3,3|
|00002ce0| 29 0d 0d 48 05 e1 0d 0d | 52 05 3a 0d 0d 5c 24 f4 |)..H....|R.:..\$.|
|00002cf0| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|00002d00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00002d10| 0d 66 24 f4 20 53 65 74 | 20 77 68 69 63 68 20 69 |.f$. Set| which i|
|00002d20| 63 6f 6e 20 74 68 65 20 | 63 61 72 65 74 20 69 73 |con the |caret is|
|00002d30| 20 69 6e 0d 0d 70 1b f4 | 20 55 73 65 73 3a 20 46 | in..p..| Uses: F|
|00002d40| 4e 5f 52 65 61 64 49 63 | 6f 6e 54 65 78 74 0d 0d |N_ReadIc|onText..|
|00002d50| 7a 24 f4 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |z$. ****|********|
|00002d60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002d70| 2a 2a 0d 0d 84 2e dd 20 | f2 5f 53 65 74 43 61 72 |**..... |._SetCar|
|00002d80| 65 74 50 6f 73 69 74 69 | 6f 6e 28 57 69 6e 64 6f |etPositi|on(Windo|
|00002d90| 77 25 2c 49 63 6f 6e 25 | 2c 49 6e 64 65 78 25 29 |w%,Icon%|,Index%)|
|00002da0| 0d 0d 8e 11 ea 20 49 63 | 6f 6e 4c 65 6e 67 74 68 |..... Ic|onLength|
|00002db0| 25 0d 0d 98 33 20 20 20 | 49 63 6f 6e 4c 65 6e 67 |%...3 |IconLeng|
|00002dc0| 74 68 25 3d a9 28 a4 5f | 52 65 61 64 49 63 6f 6e |th%=.(._|ReadIcon|
|00002dd0| 54 65 78 74 28 57 69 6e | 64 6f 77 25 2c 49 63 6f |Text(Win|dow%,Ico|
|00002de0| 6e 25 29 29 0d 0d a2 30 | 20 20 20 e7 20 49 6e 64 |n%))...0| . Ind|
|00002df0| 65 78 25 3e 49 63 6f 6e | 4c 65 6e 67 74 68 25 20 |ex%>Icon|Length% |
|00002e00| 8c 20 49 6e 64 65 78 25 | 3d 49 63 6f 6e 4c 65 6e |. Index%|=IconLen|
|00002e10| 67 74 68 25 0d 0d ac 3b | 20 20 20 c8 99 20 22 57 |gth%...;| .. "W|
|00002e20| 69 6d 70 5f 53 65 74 43 | 61 72 65 74 50 6f 73 69 |imp_SetC|aretPosi|
|00002e30| 74 69 6f 6e 22 2c 57 69 | 6e 64 6f 77 25 2c 49 63 |tion",Wi|ndow%,Ic|
|00002e40| 6f 6e 25 2c 2c 2c 2d 31 | 2c 49 6e 64 65 78 25 0d |on%,,,-1|,Index%.|
|00002e50| 0d b6 05 e1 0d 0d c0 05 | 3a 0d 0d ca 4c f4 20 2a |........|:...L. *|
|00002e60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002e70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002e80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002e90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002ea0| 2a 2a 2a 2a 2a 0d 0d d4 | 4c f4 20 54 68 69 73 20 |*****...|L. This |
|00002eb0| 72 65 61 64 73 20 74 68 | 65 20 74 65 78 74 20 66 |reads th|e text f|
|00002ec0| 72 6f 6d 20 74 68 65 20 | 77 72 69 74 61 62 6c 65 |rom the |writable|
|00002ed0| 20 49 63 6f 6e 20 73 70 | 65 63 69 66 69 65 64 20 | Icon sp|ecified |
|00002ee0| 69 6e 20 74 68 65 20 70 | 61 72 61 6d 65 74 65 72 |in the p|arameter|
|00002ef0| 73 0d 0d de 10 f4 20 55 | 73 65 73 3a 20 4e 4f 4e |s..... U|ses: NON|
|00002f00| 45 0d 0d e8 4c f4 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |E...L. *|********|
|00002f10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002f20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002f30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002f40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 0d f2 |********|*****...|
|00002f50| 2f dd 20 a4 5f 52 65 61 | 64 49 63 6f 6e 54 65 78 |/. ._Rea|dIconTex|
|00002f60| 74 28 57 69 6e 64 6f 77 | 48 61 6e 64 6c 65 25 2c |t(Window|Handle%,|
|00002f70| 49 63 6f 6e 48 61 6e 64 | 6c 65 25 29 0d 0d fc 10 |IconHand|le%)....|
|00002f80| 20 20 20 ea 20 52 65 73 | 75 6c 74 24 0d 0e 06 1d | . Res|ult$....|
|00002f90| 20 20 20 42 6c 6f 63 6b | 25 21 30 3d 57 69 6e 64 | Block|%!0=Wind|
|00002fa0| 6f 77 48 61 6e 64 6c 65 | 25 0d 0e 10 1b 20 20 20 |owHandle|%.... |
|00002fb0| 42 6c 6f 63 6b 25 21 34 | 3d 49 63 6f 6e 48 61 6e |Block%!4|=IconHan|
|00002fc0| 64 6c 65 25 0d 0e 1a 25 | 20 20 20 c8 99 20 22 57 |dle%...%| .. "W|
|00002fd0| 69 6d 70 5f 47 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_GetI|conState|
|00002fe0| 22 2c 2c 42 6c 6f 63 6b | 25 0d 0e 24 22 20 20 20 |",,Block|%..$" |
|00002ff0| e7 20 28 42 6c 6f 63 6b | 25 21 32 34 20 80 20 28 |. (Block|%!24 . (|
|00003000| 31 3c 3c 38 29 29 3c 3e | 30 20 8c 0d 0e 2e 1e 20 |1<<8))<>|0 ..... |
|00003010| 20 20 20 20 20 52 65 73 | 75 6c 74 24 3d 24 28 42 | Res|ult$=$(B|
|00003020| 6c 6f 63 6b 25 21 32 38 | 29 0d 0e 38 08 20 20 20 |lock%!28|)..8. |
|00003030| cc 0d 0e 42 1e 20 20 20 | 20 20 20 52 65 73 75 6c |...B. | Resul|
|00003040| 74 24 3d 24 28 42 6c 6f | 63 6b 25 2b 32 38 29 0d |t$=$(Blo|ck%+28).|
|00003050| 0e 4c 08 20 20 20 cd 0d | 0e 56 0c 3d 52 65 73 75 |.L. ..|.V.=Resu|
|00003060| 6c 74 24 0d 0e 60 05 3a | 0d 0e 6a 2c f4 20 2a 2a |lt$..`.:|..j,. **|
|00003070| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003080| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003090| 2a 2a 2a 2a 0d 0e 74 2c | f4 20 54 68 65 20 6e 61 |****..t,|. The na|
|000030a0| 6d 65 20 73 6f 72 74 20 | 6f 66 20 73 61 79 73 20 |me sort |of says |
|000030b0| 69 74 20 61 6c 6c 20 72 | 65 61 6c 6c 79 21 21 21 |it all r|eally!!!|
|000030c0| 0d 0e 7e 10 f4 20 55 73 | 65 73 3a 20 4e 4f 4e 45 |..~.. Us|es: NONE|
|000030d0| 0d 0e 88 2c f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...,. **|********|
|000030e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000030f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 0e 92 23 |********|****...#|
|00003100| dd 20 f2 5f 43 72 65 61 | 74 65 4d 61 69 6e 57 69 |. ._Crea|teMainWi|
|00003110| 6e 64 6f 77 4d 65 6e 75 | 28 58 25 2c 59 25 29 0d |ndowMenu|(X%,Y%).|
|00003120| 0e 9c 0b 20 20 20 ea 20 | 6d 25 0d 0e a6 35 20 20 |... . |m%...5 |
|00003130| 20 4d 61 69 6e 57 69 6e | 64 6f 77 4d 65 6e 75 41 | MainWin|dowMenuA|
|00003140| 63 74 69 76 65 25 3d b9 | 20 3a 20 49 63 6f 6e 42 |ctive%=.| : IconB|
|00003150| 61 72 4d 65 6e 75 41 63 | 74 69 76 65 25 3d a3 0d |arMenuAc|tive%=..|
|00003160| 0e b0 1a 20 20 20 de 20 | 4d 61 69 6e 4d 65 6e 75 |... . |MainMenu|
|00003170| 25 20 32 39 2b 37 2a 32 | 34 0d 0e ba 18 20 20 20 |% 29+7*2|4.... |
|00003180| 24 4d 61 69 6e 4d 65 6e | 75 25 3d 22 4d 61 69 6e |$MainMen|u%="Main|
|00003190| 22 0d 0e c4 15 20 20 20 | 4d 61 69 6e 4d 65 6e 75 |".... |MainMenu|
|000031a0| 25 3f 31 32 3d 37 0d 0e | ce 15 20 20 20 4d 61 69 |%?12=7..|.. Mai|
|000031b0| 6e 4d 65 6e 75 25 3f 31 | 33 3d 32 0d 0e d8 15 20 |nMenu%?1|3=2.... |
|000031c0| 20 20 4d 61 69 6e 4d 65 | 6e 75 25 3f 31 34 3d 37 | MainMe|nu%?14=7|
|000031d0| 0d 0e e2 15 20 20 20 4d | 61 69 6e 4d 65 6e 75 25 |.... M|ainMenu%|
|000031e0| 3f 31 35 3d 30 0d 0e ec | 33 20 20 20 4d 61 69 6e |?15=0...|3 Main|
|000031f0| 4d 65 6e 75 25 21 31 36 | 3d 37 2a 31 36 20 3a f4 |Menu%!16|=7*16 :.|
|00003200| 20 57 69 64 74 68 65 20 | 69 6e 20 63 68 61 72 61 | Widthe |in chara|
|00003210| 63 74 65 72 73 2a 31 36 | 0d 0e f6 16 20 20 20 4d |cters*16|.... M|
|00003220| 61 69 6e 4d 65 6e 75 25 | 21 32 30 3d 34 30 0d 0f |ainMenu%|!20=40..|
|00003230| 00 15 20 20 20 4d 61 69 | 6e 4d 65 6e 75 25 21 32 |.. Mai|nMenu%!2|
|00003240| 34 3d 30 0d 0f 0a 16 20 | 20 20 6d 25 3d 4d 61 69 |4=0.... | m%=Mai|
|00003250| 6e 4d 65 6e 75 25 2b 32 | 38 0d 0f 14 08 20 20 20 |nMenu%+2|8.... |
|00003260| f5 0d 0f 1e 30 20 20 20 | 20 20 20 f3 20 46 6c 61 |....0 | . Fla|
|00003270| 67 73 25 2c 50 6f 69 6e | 74 65 72 25 2c 53 65 6c |gs%,Poin|ter%,Sel|
|00003280| 25 2c 49 63 6f 6e 46 6c | 61 67 25 2c 49 74 65 6d |%,IconFl|ag%,Item|
|00003290| 24 0d 0f 28 43 20 20 20 | 20 20 20 6d 25 21 30 3d |$..(C | m%!0=|
|000032a0| 46 6c 61 67 73 25 20 20 | 20 20 20 20 20 20 20 20 |Flags% | |
|000032b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000032c0| 20 20 20 20 20 20 20 3a | f4 20 4d 65 6e 75 20 46 | :|. Menu F|
|000032d0| 6c 61 67 73 0d 0f 32 59 | 20 20 20 20 20 20 6d 25 |lags..2Y| m%|
|000032e0| 21 34 3d 50 6f 69 6e 74 | 65 72 25 20 20 20 20 20 |!4=Point|er% |
|000032f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003300| 20 20 20 20 20 20 20 20 | 20 20 3a f4 20 50 6f 69 | | :. Poi|
|00003310| 6e 74 65 72 20 74 6f 20 | 53 75 62 2d 4d 65 6e 75 |nter to |Sub-Menu|
|00003320| 20 28 2d 31 20 49 66 20 | 4e 6f 6e 65 29 0d 0f 3c | (-1 If |None)..<|
|00003330| 46 20 20 20 20 20 20 6d | 25 21 38 3d 49 63 6f 6e |F m|%!8=Icon|
|00003340| 46 6c 61 67 25 20 84 20 | 28 53 65 6c 25 3c 3c 32 |Flag% . |(Sel%<<2|
|00003350| 32 29 20 84 20 28 37 3c | 3c 32 34 29 20 20 20 20 |2) . (7<|<24) |
|00003360| 20 3a f4 20 4d 65 6e 75 | 20 49 63 6f 6e 20 46 6c | :. Menu| Icon Fl|
|00003370| 61 67 73 0d 0f 46 52 20 | 20 20 20 20 20 24 28 6d |ags..FR | $(m|
|00003380| 25 2b 31 32 29 3d 49 74 | 65 6d 24 20 20 20 20 20 |%+12)=It|em$ |
|00003390| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000033a0| 20 20 20 20 20 20 20 20 | 20 3a f4 20 49 74 65 6d | | :. Item|
|000033b0| 20 4e 61 6d 65 20 28 31 | 32 20 42 79 74 65 73 20 | Name (1|2 Bytes |
|000033c0| 4d 61 78 2e 29 0d 0f 50 | 12 20 20 20 20 20 20 6d |Max.)..P|. m|
|000033d0| 25 3d 6d 25 2b 32 34 0d | 0f 5a 13 20 20 20 fd 20 |%=m%+24.|.Z. . |
|000033e0| 46 6c 61 67 73 25 3d 26 | 38 30 0d 0f 64 08 20 20 |Flags%=&|80..d. |
|000033f0| 20 3a 0d 0f 6e 0b 20 20 | 20 f7 20 2b 30 0d 0f 78 | :..n. | . +0..x|
|00003400| 22 20 20 20 dc 20 26 30 | 30 2c 49 6e 66 6f 25 2c |" . &0|0,Info%,|
|00003410| 30 2c 25 31 30 30 30 31 | 2c 22 49 6e 66 6f 22 0d |0,%10001|,"Info".|
|00003420| 0f 82 2d 20 20 20 dc 20 | 26 30 30 2c 46 6f 6e 74 |..- . |&00,Font|
|00003430| 4d 65 6e 75 48 61 6e 64 | 6c 65 25 2c 30 2c 25 31 |MenuHand|le%,0,%1|
|00003440| 30 30 30 31 2c 22 46 6f | 6e 74 73 22 0d 0f 8c 1f |0001,"Fo|nts"....|
|00003450| 20 20 20 dc 20 26 38 30 | 2c 2d 31 2c 30 2c 25 31 | . &80|,-1,0,%1|
|00003460| 30 30 30 31 2c 22 53 61 | 76 65 22 0d 0f 96 08 20 |0001,"Sa|ve".... |
|00003470| 20 20 3a 0d 0f a0 2f 20 | 20 20 c8 99 20 22 57 69 | :.../ | .. "Wi|
|00003480| 6d 70 5f 43 72 65 61 74 | 65 4d 65 6e 75 22 2c 2c |mp_Creat|eMenu",,|
|00003490| 4d 61 69 6e 4d 65 6e 75 | 25 2c 58 25 2d 39 36 2c |MainMenu|%,X%-96,|
|000034a0| 59 25 0d 0f aa 05 e1 0d | 0f b4 05 3a 0d 0f be 40 |Y%......|...:...@|
|000034b0| f4 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. ******|********|
|000034c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000034d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000034e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 0f c8 40 |********|****...@|
|000034f0| f4 20 54 68 69 73 20 42 | 69 74 20 44 6f 65 73 20 |. This B|it Does |
|00003500| 54 68 65 20 41 63 74 75 | 61 6c 20 53 61 76 69 6e |The Actu|al Savin|
|00003510| 67 20 4f 66 20 54 68 65 | 20 44 61 74 61 20 57 68 |g Of The| Data Wh|
|00003520| 65 6e 20 52 65 71 75 65 | 73 74 65 64 0d 0f d2 3a |en Reque|sted...:|
|00003530| f4 20 55 73 65 73 3a 20 | 46 4e 5f 52 65 61 64 49 |. Uses: |FN_ReadI|
|00003540| 63 6f 6e 54 65 78 74 20 | 50 52 4f 43 5f 52 65 61 |conText |PROC_Rea|
|00003550| 64 46 6c 61 67 73 20 50 | 52 4f 43 5f 4d 61 6b 65 |dFlags P|ROC_Make|
|00003560| 42 69 74 6d 61 70 0d 0f | dc 40 f4 20 2a 2a 2a 2a |Bitmap..|.@. ****|
|00003570| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003580| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003590| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000035a0| 2a 2a 2a 2a 2a 2a 0d 0f | e6 0e dd 20 f2 5f 53 61 |******..|... ._Sa|
|000035b0| 76 65 54 6f 0d 0f f0 30 | ea 20 46 6f 6e 74 4e 61 |veTo...0|. FontNa|
|000035c0| 6d 65 24 2c 20 50 6f 69 | 6e 74 53 69 7a 65 2c 20 |me$, Poi|ntSize, |
|000035d0| 44 50 49 5f 58 2c 20 44 | 50 49 5f 59 2c 20 46 6c |DPI_X, D|PI_Y, Fl|
|000035e0| 61 67 73 25 0d 0f fa 1e | 20 20 20 c8 99 20 22 57 |ags%....| .. "W|
|000035f0| 69 6d 70 5f 43 72 65 61 | 74 65 4d 65 6e 75 22 2c |imp_Crea|teMenu",|
|00003600| 2d 31 0d 10 04 2f 20 20 | 20 50 6f 69 6e 74 53 69 |-1.../ | PointSi|
|00003610| 7a 65 3d bb 28 a4 5f 52 | 65 61 64 49 63 6f 6e 54 |ze=.(._R|eadIconT|
|00003620| 65 78 74 28 4d 61 69 6e | 25 2c 31 39 29 29 2a 31 |ext(Main|%,19))*1|
|00003630| 36 0d 10 0e 28 20 20 20 | 44 50 49 5f 58 3d bb 28 |6...( |DPI_X=.(|
|00003640| a4 5f 52 65 61 64 49 63 | 6f 6e 54 65 78 74 28 4d |._ReadIc|onText(M|
|00003650| 61 69 6e 25 2c 31 35 29 | 29 0d 10 18 28 20 20 20 |ain%,15)|)...( |
|00003660| 44 50 49 5f 59 3d bb 28 | a4 5f 52 65 61 64 49 63 |DPI_Y=.(|._ReadIc|
|00003670| 6f 6e 54 65 78 74 28 4d | 61 69 6e 25 2c 31 37 29 |onText(M|ain%,17)|
|00003680| 29 0d 10 22 29 20 20 20 | 46 6f 6e 74 4e 61 6d 65 |)..") |FontName|
|00003690| 24 3d a4 5f 52 65 61 64 | 49 63 6f 6e 54 65 78 74 |$=._Read|IconText|
|000036a0| 28 4d 61 69 6e 25 2c 31 | 33 29 0d 10 2c 12 20 20 |(Main%,1|3)..,. |
|000036b0| 20 f2 5f 52 65 61 64 46 | 6c 61 67 73 0d 10 36 3f | ._ReadF|lags..6?|
|000036c0| 20 20 20 f2 5f 4d 61 6b | 65 42 69 74 6d 61 70 28 | ._Mak|eBitmap(|
|000036d0| 46 6f 6e 74 4e 61 6d 65 | 24 2c 20 50 6f 69 6e 74 |FontName|$, Point|
|000036e0| 53 69 7a 65 2c 20 44 50 | 49 5f 58 2c 20 44 50 49 |Size, DP|I_X, DPI|
|000036f0| 5f 59 2c 20 46 6c 61 67 | 73 25 29 0d 10 40 05 e1 |_Y, Flag|s%)..@..|
|00003700| 0d 10 4a 05 3a 0d 10 54 | 54 2a 2a 2a 2a 2a 2a 2a |..J.:..T|T*******|
|00003710| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003720| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003730| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003740| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003750| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 10 5e 52 f4 20 43 |********|*..^R. C|
|00003760| 68 65 63 6b 73 20 49 66 | 20 53 75 62 70 69 78 65 |hecks If| Subpixe|
|00003770| 6c 20 50 6f 73 69 74 69 | 6f 6e 69 6e 67 20 46 6c |l Positi|oning Fl|
|00003780| 61 67 73 20 48 61 76 65 | 20 42 65 65 6e 20 53 65 |ags Have| Been Se|
|00003790| 74 2c 20 48 6f 72 69 7a | 6f 6e 74 61 6c 20 41 6e |t, Horiz|ontal An|
|000037a0| 64 20 56 65 72 74 69 63 | 61 6c 2e 0d 10 68 10 f4 |d Vertic|al...h..|
|000037b0| 20 55 73 65 73 3a 20 4e | 4f 4e 45 0d 10 72 54 2a | Uses: N|ONE..rT*|
|000037c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000037d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000037e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000037f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003800| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00003810| 10 7c 11 dd 20 f2 5f 52 | 65 61 64 46 6c 61 67 73 |.|.. ._R|eadFlags|
|00003820| 0d 10 86 60 20 20 20 c8 | 99 22 57 69 6d 70 5f 57 |...` .|."Wimp_W|
|00003830| 68 69 63 68 49 63 6f 6e | 22 2c 4d 61 69 6e 25 2c |hichIcon|",Main%,|
|00003840| 42 6c 6f 63 6b 25 2c 31 | 3c 3c 32 31 2c 31 3c ca |Block%,1|<<21,1<.|
|00003850| 0d 05 31 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..1 | |
|00003860| 20 20 20 3a 20 f4 20 52 | 65 61 64 20 53 65 6c 65 | : . R|ead Sele|
|00003870| 63 74 65 64 20 46 6c 61 | 67 2c 20 42 69 74 20 32 |cted Fla|g, Bit 2|
|00003880| 31 0d 10 90 2d 20 20 20 | 49 6e 64 65 78 25 3d 30 |1...- |Index%=0|
|00003890| 20 3a 20 48 6f 72 69 7a | 6f 6e 74 61 6c 25 3d b9 | : Horiz|ontal%=.|
|000038a0| 20 3a 20 56 65 72 74 69 | 63 61 6c 25 3d b9 0d 10 | : Verti|cal%=...|
|000038b0| 9a 21 20 20 20 49 63 6f | 6e 53 65 6c 65 63 74 65 |.! Ico|nSelecte|
|000038c0| 64 3d 42 6c 6f 63 6b 25 | 21 49 6e 64 65 78 25 0d |d=Block%|!Index%.|
|000038d0| 10 a4 1a 20 20 20 c8 95 | 20 49 63 6f 6e 53 65 6c |... ..| IconSel|
|000038e0| 65 63 74 65 64 3c 3e 2d | 31 0d 10 ae 2b 20 20 20 |ected<>-|1...+ |
|000038f0| 20 20 20 e7 20 49 63 6f | 6e 53 65 6c 65 63 74 65 | . Ico|nSelecte|
|00003900| 64 3d 31 30 20 8c 20 48 | 6f 72 69 7a 6f 6e 74 61 |d=10 . H|orizonta|
|00003910| 6c 25 3d a3 0d 10 b8 29 | 20 20 20 20 20 20 e7 20 |l%=....)| . |
|00003920| 49 63 6f 6e 53 65 6c 65 | 63 74 65 64 3d 31 31 20 |IconSele|cted=11 |
|00003930| 8c 20 56 65 72 74 69 63 | 61 6c 25 3d a3 0d 10 c2 |. Vertic|al%=....|
|00003940| 30 20 20 20 20 20 20 49 | 6e 64 65 78 25 2b 3d 34 |0 I|ndex%+=4|
|00003950| 20 3a 20 49 63 6f 6e 53 | 65 6c 65 63 74 65 64 3d | : IconS|elected=|
|00003960| 42 6c 6f 63 6b 25 21 49 | 6e 64 65 78 25 0d 10 cc |Block%!I|ndex%...|
|00003970| 08 20 20 20 ce 0d 10 d6 | 2f 20 20 20 46 6c 61 67 |. ....|/ Flag|
|00003980| 73 25 3d 31 2d 28 48 6f | 72 69 7a 6f 6e 74 61 6c |s%=1-(Ho|rizontal|
|00003990| 25 3c 3c 31 29 2d 28 56 | 65 72 74 69 63 61 6c 25 |%<<1)-(V|ertical%|
|000039a0| 3c 3c 32 29 0d 10 e0 05 | e1 0d 10 ea 05 3a 0d 10 |<<2)....|.....:..|
|000039b0| f4 71 f4 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.q. ****|********|
|000039c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000039d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000039e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000039f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003a00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003a10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00003a20| 10 fe 71 f4 20 4c 69 74 | 74 6c 65 20 62 69 74 20 |..q. Lit|tle bit |
|00003a30| 6f 66 20 61 73 73 65 6d | 62 6c 65 72 20 63 6f 64 |of assem|bler cod|
|00003a40| 65 20 77 68 69 63 68 20 | 6c 69 76 65 73 20 69 6e |e which |lives in|
|00003a50| 20 74 68 65 20 52 4d 41 | 20 61 6e 64 20 63 61 6c | the RMA| and cal|
|00003a60| 6c 73 20 74 68 65 20 4d | 61 6b 65 42 69 74 6d 61 |ls the M|akeBitma|
|00003a70| 70 20 53 57 49 20 74 6f | 20 70 72 65 76 65 6e 74 |p SWI to| prevent|
|00003a80| 20 63 72 61 73 68 69 6e | 67 20 42 41 53 49 43 2e | crashin|g BASIC.|
|00003a90| 0d 11 08 10 f4 20 55 73 | 65 73 3a 20 4e 4f 4e 45 |..... Us|es: NONE|
|00003aa0| 0d 11 12 71 f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...q. **|********|
|00003ab0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003ac0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003ad0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003ae0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003af0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003b00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003b10| 2a 0d 11 1c 41 dd 20 f2 | 5f 4d 61 6b 65 42 69 74 |*...A. .|_MakeBit|
|00003b20| 6d 61 70 28 46 6f 6e 74 | 4e 61 6d 65 24 2c 20 50 |map(Font|Name$, P|
|00003b30| 6f 69 6e 74 53 69 7a 65 | 25 2c 20 44 50 49 5f 58 |ointSize|%, DPI_X|
|00003b40| 25 2c 20 44 50 49 5f 59 | 25 2c 20 46 6c 61 67 73 |%, DPI_Y|%, Flags|
|00003b50| 25 29 0d 11 26 16 ea 20 | 50 25 2c 20 52 4d 41 42 |%)..&.. |P%, RMAB|
|00003b60| 50 6f 69 6e 74 65 72 25 | 0d 11 30 2b c8 99 20 22 |Pointer%|..0+.. "|
|00003b70| 4f 53 5f 4d 6f 64 75 6c | 65 22 2c 36 2c 2c 2c 32 |OS_Modul|e",6,,,2|
|00003b80| 35 36 20 b8 20 2c 2c 52 | 4d 41 42 50 6f 69 6e 74 |56 . ,,R|MABPoint|
|00003b90| 65 72 25 0d 11 3a 14 e3 | 20 51 25 20 3d 20 30 20 |er%..:..| Q% = 0 |
|00003ba0| b8 20 32 20 88 20 32 0d | 11 44 15 50 25 20 3d 20 |. 2 . 2.|.D.P% = |
|00003bb0| 52 4d 41 42 50 6f 69 6e | 74 65 72 25 0d 11 4e 0b |RMABPoin|ter%..N.|
|00003bc0| 5b 4f 50 54 20 51 25 0d | 11 58 14 20 41 44 52 20 |[OPT Q%.|.X. ADR |
|00003bd0| 52 31 2c 46 6f 6e 74 4e | 61 6d 65 0d 11 62 17 20 |R1,FontN|ame..b. |
|00003be0| 4d 4f 56 20 52 32 2c 23 | 50 6f 69 6e 74 53 69 7a |MOV R2,#|PointSiz|
|00003bf0| 65 25 0d 11 6c 17 20 4d | 4f 56 20 52 33 2c 23 50 |e%..l. M|OV R3,#P|
|00003c00| 6f 69 6e 74 53 69 7a 65 | 25 0d 11 76 13 20 4d 4f |ointSize|%..v. MO|
|00003c10| 56 20 52 34 2c 23 44 50 | 49 5f 58 25 0d 11 80 13 |V R4,#DP|I_X%....|
|00003c20| 20 4d 4f 56 20 52 35 2c | 23 44 50 49 5f 59 25 0d | MOV R5,|#DPI_Y%.|
|00003c30| 11 8a 13 20 4d 4f 56 20 | 52 36 2c 23 46 6c 61 67 |... MOV |R6,#Flag|
|00003c40| 73 25 0d 11 94 1a 20 53 | 57 49 20 22 46 6f 6e 74 |s%.... S|WI "Font|
|00003c50| 5f 4d 61 6b 65 42 69 74 | 6d 61 70 22 0d 11 9e 0e |_MakeBit|map"....|
|00003c60| 20 4d 56 4e 20 52 30 2c | 23 31 0d 11 a8 1d 20 53 | MVN R0,|#1.... S|
|00003c70| 57 49 20 22 57 69 6d 70 | 5f 43 6f 6d 6d 61 6e 64 |WI "Wimp|_Command|
|00003c80| 57 69 6e 64 6f 77 22 0d | 11 b2 13 20 53 57 49 20 |Window".|... SWI |
|00003c90| 22 58 4f 53 5f 45 78 69 | 74 22 0d 11 bc 0a 20 41 |"XOS_Exi|t".... A|
|00003ca0| 4c 49 47 4e 0d 11 c6 0e | 20 2e 46 6f 6e 74 4e 61 |LIGN....| .FontNa|
|00003cb0| 6d 65 0d 11 d0 05 5d 0d | 11 da 05 ed 0d 11 e4 19 |me....].|........|
|00003cc0| 24 46 6f 6e 74 4e 61 6d | 65 20 3d 20 46 6f 6e 74 |$FontNam|e = Font|
|00003cd0| 4e 61 6d 65 24 0d 11 ee | 2c c8 99 20 22 57 69 6d |Name$...|,.. "Wim|
|00003ce0| 70 5f 53 74 61 72 74 54 | 61 73 6b 22 2c 22 47 6f |p_StartT|ask","Go|
|00003cf0| 20 22 2b c3 7e 52 4d 41 | 42 50 6f 69 6e 74 65 72 | "+.~RMA|BPointer|
|00003d00| 25 0d 11 f8 22 c8 99 20 | 22 4f 53 5f 4d 6f 64 75 |%...".. |"OS_Modu|
|00003d10| 6c 65 22 2c 37 2c 2c 52 | 4d 41 42 50 6f 69 6e 74 |le",7,,R|MABPoint|
|00003d20| 65 72 25 0d 12 02 05 e1 | 0d 12 0c 05 3a 0d 12 16 |er%.....|....:...|
|00003d30| 42 f4 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |B. *****|********|
|00003d40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003d50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003d60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00003d70| 12 20 42 f4 20 55 73 65 | 72 20 68 61 73 20 27 63 |. B. Use|r has 'c|
|00003d80| 6c 69 63 6b 65 64 27 20 | 6f 6e 20 61 20 66 6f 6e |licked' |on a fon|
|00003d90| 74 20 6e 61 6d 65 2c 20 | 73 68 6f 77 20 6e 61 6d |t name, |show nam|
|00003da0| 65 20 69 6e 20 6d 61 69 | 6e 20 77 69 6e 64 6f 77 |e in mai|n window|
|00003db0| 2e 0d 12 2a 3d f4 20 52 | 65 6c 69 65 73 20 6f 6e |...*=. R|elies on|
|00003dc0| 20 61 20 6e 75 6d 65 72 | 69 63 61 6c 20 6c 69 73 | a numer|ical lis|
|00003dd0| 74 20 6f 66 20 6d 65 6e | 75 20 73 65 6c 65 63 74 |t of men|u select|
|00003de0| 69 6f 6e 73 20 61 74 20 | 42 6c 6f 63 6b 25 0d 12 |ions at |Block%..|
|00003df0| 34 3c f4 20 55 73 65 73 | 3a 20 50 52 4f 43 5f 53 |4<. Uses|: PROC_S|
|00003e00| 65 74 49 63 6f 6e 54 65 | 78 74 20 50 52 4f 43 5f |etIconTe|xt PROC_|
|00003e10| 52 65 64 72 61 77 20 46 | 4e 5f 44 65 63 6f 64 65 |Redraw F|N_Decode|
|00003e20| 4d 79 46 6f 6e 74 4d 65 | 6e 75 0d 12 3e 42 f4 20 |MyFontMe|nu..>B. |
|00003e30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 12 48 1a |********|****..H.|
|00003e70| dd 20 f2 5f 53 65 6c 65 | 63 74 46 72 6f 6d 46 6f |. ._Sele|ctFromFo|
|00003e80| 6e 74 4d 65 6e 75 0d 12 | 52 28 20 20 20 e7 20 42 |ntMenu..|R( . B|
|00003e90| 6c 6f 63 6b 25 21 38 3d | 26 46 46 46 46 46 46 46 |lock%!8=|&FFFFFFF|
|00003ea0| 46 20 8c 20 42 6c 6f 63 | 6b 25 21 38 3d 30 0d 12 |F . Bloc|k%!8=0..|
|00003eb0| 5c 4d 20 20 20 f4 20 49 | 66 20 43 6c 69 63 6b 20 |\M . I|f Click |
|00003ec0| 4f 6e 20 54 79 70 65 46 | 61 63 65 20 54 68 65 6e |On TypeF|ace Then|
|00003ed0| 20 53 65 6c 65 63 74 20 | 46 69 72 73 74 20 61 76 | Select |First av|
|00003ee0| 61 69 6c 61 62 6c 65 20 | 73 74 79 6c 65 20 66 72 |ailable |style fr|
|00003ef0| 6f 6d 20 73 75 62 20 6d | 65 6e 75 0d 12 66 3f 20 |om sub m|enu..f? |
|00003f00| 20 20 f2 5f 53 65 74 49 | 63 6f 6e 54 65 78 74 28 | ._SetI|conText(|
|00003f10| 53 68 6f 77 46 6f 6e 74 | 4e 61 6d 65 25 2c 4d 61 |ShowFont|Name%,Ma|
|00003f20| 69 6e 25 2c a4 5f 44 65 | 63 6f 64 65 4d 79 46 6f |in%,._De|codeMyFo|
|00003f30| 6e 74 4d 65 6e 75 2c 35 | 30 29 0d 12 70 24 20 20 |ntMenu,5|0)..p$ |
|00003f40| 20 f2 5f 52 65 64 72 61 | 77 28 4d 61 69 6e 25 2c | ._Redra|w(Main%,|
|00003f50| 53 68 6f 77 46 6f 6e 74 | 4e 61 6d 65 25 29 0d 12 |ShowFont|Name%)..|
|00003f60| 7a 14 20 20 20 21 42 6c | 6f 63 6b 25 3d 4d 61 69 |z. !Bl|ock%=Mai|
|00003f70| 6e 25 0d 12 84 11 20 20 | 20 42 6c 6f 63 6b 25 21 |n%.... | Block%!|
|00003f80| 34 3d 33 0d 12 8e 11 20 | 20 20 42 6c 6f 63 6b 25 |4=3.... | Block%|
|00003f90| 21 38 3d 30 0d 12 98 12 | 20 20 20 42 6c 6f 63 6b |!8=0....| Block|
|00003fa0| 25 21 31 32 3d 30 0d 12 | a2 25 20 20 20 c8 99 20 |%!12=0..|.% .. |
|00003fb0| 22 57 69 6d 70 5f 53 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Se|tIconSta|
|00003fc0| 74 65 22 2c 2c 42 6c 6f | 63 6b 25 0d 12 ac 05 e1 |te",,Blo|ck%.....|
|00003fd0| 0d 12 b6 05 3a 0d 12 c0 | 3e f4 20 2a 2a 2a 2a 2a |....:...|>. *****|
|00003fe0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003ff0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004000| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004010| 2a 2a 2a 0d 12 ca 3b f4 | 20 54 68 69 73 20 44 6f |***...;.| This Do|
|00004020| 65 73 20 74 68 65 20 61 | 63 74 75 61 6c 20 77 6f |es the a|ctual wo|
|00004030| 72 6b 20 6f 66 20 72 65 | 61 64 69 6e 67 20 74 68 |rk of re|ading th|
|00004040| 65 20 74 65 78 74 20 66 | 6f 72 20 74 68 65 0d 12 |e text f|or the..|
|00004050| d4 37 f4 20 53 65 6c 65 | 63 74 65 64 20 6d 65 6e |.7. Sele|cted men|
|00004060| 75 20 69 74 65 6d 73 20 | 66 72 6f 6d 20 74 68 65 |u items |from the|
|00004070| 20 69 6e 64 69 72 65 63 | 74 65 64 20 64 61 74 61 | indirec|ted data|
|00004080| 20 6c 69 73 74 0d 12 de | 3e f4 20 52 65 6c 69 65 | list...|>. Relie|
|00004090| 73 20 6f 6e 20 61 20 6e | 75 6d 65 72 69 63 61 6c |s on a n|umerical|
|000040a0| 20 6c 69 73 74 20 6f 66 | 20 6d 65 6e 75 20 73 65 | list of| menu se|
|000040b0| 6c 65 63 74 69 6f 6e 73 | 20 61 74 20 42 6c 6f 63 |lections| at Bloc|
|000040c0| 6b 25 2e 0d 12 e8 1a f4 | 20 55 73 65 73 20 3a 20 |k%......| Uses : |
|000040d0| 46 4e 5f 52 65 61 64 53 | 74 72 69 6e 67 0d 12 f2 |FN_ReadS|tring...|
|000040e0| 3e f4 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |>. *****|********|
|000040f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 12 fc 18 dd |********|***.....|
|00004120| 20 a4 5f 44 65 63 6f 64 | 65 4d 79 46 6f 6e 74 4d | ._Decod|eMyFontM|
|00004130| 65 6e 75 0d 13 06 31 ea | 20 57 68 69 63 68 54 79 |enu...1.| WhichTy|
|00004140| 70 65 46 61 63 65 25 2c | 57 68 69 63 68 53 74 79 |peFace%,|WhichSty|
|00004150| 6c 65 25 2c 54 79 70 65 | 46 61 63 65 24 2c 53 74 |le%,Type|Face$,St|
|00004160| 79 6c 65 24 0d 13 10 39 | 20 20 20 57 68 69 63 68 |yle$...9| Which|
|00004170| 54 79 70 65 46 61 63 65 | 25 3d 21 28 46 6f 6e 74 |TypeFace|%=!(Font|
|00004180| 4d 65 6e 75 48 61 6e 64 | 6c 65 25 2b 28 42 6c 6f |MenuHand|le%+(Blo|
|00004190| 63 6b 25 21 34 29 2a 32 | 34 2b 34 30 29 0d 13 1a |ck%!4)*2|4+40)...|
|000041a0| 40 20 20 20 57 68 69 63 | 68 53 74 79 6c 65 25 3d |@ Whic|hStyle%=|
|000041b0| 21 28 4d 65 6e 75 48 61 | 6e 64 6c 65 25 28 28 42 |!(MenuHa|ndle%((B|
|000041c0| 6c 6f 63 6b 25 21 34 29 | 2b 31 29 2b 28 42 6c 6f |lock%!4)|+1)+(Blo|
|000041d0| 63 6b 25 21 38 29 2a 32 | 34 2b 34 30 29 0d 13 24 |ck%!8)*2|4+40)..$|
|000041e0| 2d 20 20 20 54 79 70 65 | 46 61 63 65 24 3d a4 5f |- Type|Face$=._|
|000041f0| 52 65 61 64 53 74 72 69 | 6e 67 28 57 68 69 63 68 |ReadStri|ng(Which|
|00004200| 54 79 70 65 46 61 63 65 | 25 29 0d 13 2e 27 20 20 |TypeFace|%)...' |
|00004210| 20 53 74 79 6c 65 24 3d | a4 5f 52 65 61 64 53 74 | Style$=|._ReadSt|
|00004220| 72 69 6e 67 28 57 68 69 | 63 68 53 74 79 6c 65 25 |ring(Whi|chStyle%|
|00004230| 29 0d 13 38 25 20 20 20 | e7 20 53 74 79 6c 65 24 |)..8% |. Style$|
|00004240| 3d 22 44 65 66 61 75 6c | 74 22 20 8c 20 53 74 79 |="Defaul|t" . Sty|
|00004250| 6c 65 24 3d 22 22 0d 13 | 42 34 20 20 20 e7 20 53 |le$=""..|B4 . S|
|00004260| 74 79 6c 65 24 3c 3e 22 | 22 20 8c 20 54 79 70 65 |tyle$<>"|" . Type|
|00004270| 46 61 63 65 24 3d 54 79 | 70 65 46 61 63 65 24 2b |Face$=Ty|peFace$+|
|00004280| 22 2e 22 2b 53 74 79 6c | 65 24 0d 13 4c 0e 3d 54 |"."+Styl|e$..L.=T|
|00004290| 79 70 65 46 61 63 65 24 | 0d 13 56 05 3a 0d 13 60 |ypeFace$|..V.:..`|
|000042a0| 39 f4 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |9. *****|********|
|000042b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000042c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000042d0| 2a 2a 2a 2a 2a 2a 0d 13 | 6a 39 f4 20 57 72 69 74 |******..|j9. Writ|
|000042e0| 65 73 20 61 20 73 74 72 | 69 6e 67 20 69 6e 74 6f |es a str|ing into|
|000042f0| 20 6d 65 6d 6f 72 79 20 | 77 69 74 68 20 61 20 7a | memory |with a z|
|00004300| 65 72 6f 20 74 65 72 6d | 69 6e 61 74 6f 72 2e 0d |ero term|inator..|
|00004310| 13 74 11 f4 20 55 73 65 | 73 20 3a 20 4e 4f 4e 45 |.t.. Use|s : NONE|
|00004320| 0d 13 7e 39 f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..~9. **|********|
|00004330| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 13 88 23 dd 20 f2 |********|*...#. .|
|00004360| 5f 57 72 69 74 65 53 74 | 72 69 6e 67 28 50 6f 69 |_WriteSt|ring(Poi|
|00004370| 6e 74 65 72 25 2c 54 65 | 78 74 24 29 0d 13 92 0b |nter%,Te|xt$)....|
|00004380| ea 20 4c 6f 6f 70 25 0d | 13 9c 1b 20 20 20 e3 20 |. Loop%.|... . |
|00004390| 4c 6f 6f 70 25 3d 31 20 | b8 20 a9 28 54 65 78 74 |Loop%=1 |. .(Text|
|000043a0| 24 29 0d 13 a6 2f 20 20 | 20 20 20 20 4c 6f 6f 70 |$).../ | Loop|
|000043b0| 25 3f 28 50 6f 69 6e 74 | 65 72 25 2d 31 29 3d 97 |%?(Point|er%-1)=.|
|000043c0| 28 c1 54 65 78 74 24 2c | 4c 6f 6f 70 25 2c 31 29 |(.Text$,|Loop%,1)|
|000043d0| 29 0d 13 b0 08 20 20 20 | ed 0d 13 ba 1b 20 20 20 |).... |..... |
|000043e0| 4c 6f 6f 70 25 3f 28 50 | 6f 69 6e 74 65 72 25 2d |Loop%?(P|ointer%-|
|000043f0| 31 29 3d 30 0d 13 c4 05 | e1 0d 13 ce 05 3a 0d 13 |1)=0....|.....:..|
|00004400| d8 43 f4 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.C. ****|********|
|00004410| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004420| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004430| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004440| 2a 0d 13 e2 43 f4 20 52 | 65 61 64 73 20 66 6f 6e |*...C. R|eads fon|
|00004450| 74 73 20 69 6e 74 6f 20 | 42 6c 6f 63 6b 25 2c 20 |ts into |Block%, |
|00004460| 72 65 74 75 72 6e 73 20 | 74 6f 74 61 6c 20 6e 75 |returns |total nu|
|00004470| 6d 62 65 72 20 6f 66 20 | 66 6f 6e 74 73 20 66 6f |mber of |fonts fo|
|00004480| 75 6e 64 2e 0d 13 ec 1d | f4 20 55 73 65 73 20 3a |und.....|. Uses :|
|00004490| 20 50 52 4f 43 5f 57 72 | 69 74 65 53 74 72 69 6e | PROC_Wr|iteStrin|
|000044a0| 67 0d 13 f6 43 f4 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |g...C. *|********|
|000044b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000044c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000044d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000044e0| 2a 2a 2a 2a 0d 14 00 11 | dd 20 a4 5f 52 65 61 64 |****....|. ._Read|
|000044f0| 46 6f 6e 74 73 0d 14 0a | 31 ea 20 46 6f 6e 74 4e |Fonts...|1. FontN|
|00004500| 75 6d 62 65 72 25 2c 4e | 75 6d 62 65 72 4f 66 46 |umber%,N|umberOfF|
|00004510| 6f 6e 74 73 25 2c 42 75 | 66 66 65 72 25 2c 50 6f |onts%,Bu|ffer%,Po|
|00004520| 69 6e 74 65 72 25 0d 14 | 14 13 20 20 20 de 20 42 |inter%..|.. . B|
|00004530| 75 66 66 65 72 25 20 34 | 30 0d 14 1e 18 20 20 20 |uffer% 4|0.... |
|00004540| c8 99 20 22 48 6f 75 72 | 67 6c 61 73 73 5f 4f 6e |.. "Hour|glass_On|
|00004550| 22 0d 14 28 08 20 20 20 | f5 0d 14 32 45 20 20 20 |"..(. |...2E |
|00004560| 20 20 20 c8 99 20 22 46 | 6f 6e 74 5f 4c 69 73 74 | .. "F|ont_List|
|00004570| 46 6f 6e 74 73 22 2c 2c | 42 75 66 66 65 72 25 2c |Fonts",,|Buffer%,|
|00004580| 46 6f 6e 74 4e 75 6d 62 | 65 72 25 2c 2d 31 20 b8 |FontNumb|er%,-1 .|
|00004590| 20 2c 2c 46 6f 6e 74 4e | 75 6d 62 65 72 25 0d 14 | ,,FontN|umber%..|
|000045a0| 3c 59 20 20 20 20 20 20 | e7 20 46 6f 6e 74 4e 75 |<Y |. FontNu|
|000045b0| 6d 62 65 72 25 3c 3e 2d | 31 20 8c 20 f2 5f 57 72 |mber%<>-|1 . ._Wr|
|000045c0| 69 74 65 53 74 72 69 6e | 67 28 42 6c 6f 63 6b 25 |iteStrin|g(Block%|
|000045d0| 2b 50 6f 69 6e 74 65 72 | 25 2c 24 42 75 66 66 65 |+Pointer|%,$Buffe|
|000045e0| 72 25 29 20 3a 20 4e 75 | 6d 62 65 72 4f 66 46 6f |r%) : Nu|mberOfFo|
|000045f0| 6e 74 73 25 2b 3d 31 0d | 14 46 21 20 20 20 20 20 |nts%+=1.|.F! |
|00004600| 20 50 6f 69 6e 74 65 72 | 25 2b 3d a9 28 24 42 75 | Pointer|%+=.($Bu|
|00004610| 66 66 65 72 25 29 2b 31 | 0d 14 50 17 20 20 20 fd |ffer%)+1|..P. .|
|00004620| 20 46 6f 6e 74 4e 75 6d | 62 65 72 25 3d 2d 31 0d | FontNum|ber%=-1.|
|00004630| 14 5a 19 20 20 20 c8 99 | 20 22 48 6f 75 72 67 6c |.Z. ..| "Hourgl|
|00004640| 61 73 73 5f 4f 66 66 22 | 0d 14 64 13 3d 4e 75 6d |ass_Off"|..d.=Num|
|00004650| 62 65 72 4f 66 46 6f 6e | 74 73 25 0d 14 6e 05 3a |berOfFon|ts%..n.:|
|00004660| 0d 14 78 68 f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..xh. **|********|
|00004670| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004680| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004690| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000046a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000046b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000046c0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 14 82 68 f4 20 53 65 |********|...h. Se|
|000046d0| 70 65 72 61 74 65 73 20 | 66 6f 6e 74 20 74 79 70 |perates |font typ|
|000046e0| 65 66 61 63 65 20 66 72 | 6f 6d 20 66 6f 6e 74 20 |eface fr|om font |
|000046f0| 73 74 79 6c 65 20 61 6e | 64 20 70 6c 61 63 65 73 |style an|d places|
|00004700| 20 69 6e 20 49 6e 64 69 | 72 65 63 74 65 64 44 61 | in Indi|rectedDa|
|00004710| 74 61 20 66 6f 72 20 75 | 73 65 20 62 79 20 46 4e |ta for u|se by FN|
|00004720| 5f 43 72 65 61 74 65 46 | 6f 6e 74 4d 65 6e 75 2e |_CreateF|ontMenu.|
|00004730| 0d 14 8c 27 f4 20 55 73 | 65 73 20 3a 20 46 4e 5f |...'. Us|es : FN_|
|00004740| 52 65 61 64 46 6f 6e 74 | 73 20 46 4e 5f 52 65 61 |ReadFont|s FN_Rea|
|00004750| 64 53 74 72 69 6e 67 0d | 14 96 68 f4 20 2a 2a 2a |dString.|..h. ***|
|00004760| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004770| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004780| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004790| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000047a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000047b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|000047c0| 14 a0 1c dd 20 a4 5f 43 | 72 65 61 74 65 49 6e 64 |.... ._C|reateInd|
|000047d0| 69 72 65 63 74 65 64 44 | 61 74 61 0d 14 aa 5c ea |irectedD|ata...\.|
|000047e0| 20 4e 75 6d 62 65 72 4f | 66 46 6f 6e 74 73 25 2c | NumberO|fFonts%,|
|000047f0| 52 65 61 64 50 6f 69 6e | 74 65 72 25 2c 57 72 69 |ReadPoin|ter%,Wri|
|00004800| 74 65 50 6f 69 6e 74 65 | 72 25 2c 4c 6f 6f 70 25 |tePointe|r%,Loop%|
|00004810| 2c 4f 6c 64 4e 61 6d 65 | 24 2c 52 65 73 65 72 76 |,OldName|$,Reserv|
|00004820| 65 64 25 2c 4e 75 6d 62 | 65 72 4f 66 53 75 62 45 |ed%,Numb|erOfSubE|
|00004830| 6e 74 72 69 65 73 25 0d | 14 b4 18 20 20 20 c8 99 |ntries%.|... ..|
|00004840| 20 22 48 6f 75 72 67 6c | 61 73 73 5f 4f 6e 22 0d | "Hourgl|ass_On".|
|00004850| 14 be 2f 20 20 20 4e 75 | 6d 62 65 72 4f 66 46 6f |../ Nu|mberOfFo|
|00004860| 6e 74 73 25 3d a4 5f 52 | 65 61 64 46 6f 6e 74 73 |nts%=._R|eadFonts|
|00004870| 20 3a 20 54 79 70 65 46 | 61 63 65 25 3d 30 0d 14 | : TypeF|ace%=0..|
|00004880| c8 46 20 20 20 f4 20 45 | 78 74 72 61 63 74 20 53 |.F . E|xtract S|
|00004890| 74 79 6c 65 20 64 61 74 | 61 20 74 6f 20 61 6c 6c |tyle dat|a to all|
|000048a0| 6f 77 20 61 6c 6c 20 73 | 75 62 6d 65 6e 75 73 20 |ow all s|ubmenus |
|000048b0| 74 6f 20 62 65 20 63 72 | 65 61 74 65 64 20 66 69 |to be cr|eated fi|
|000048c0| 72 73 74 2e 0d 14 d2 21 | 20 20 20 e3 20 4c 6f 6f |rst....!| . Loo|
|000048d0| 70 25 3d 31 20 b8 20 4e | 75 6d 62 65 72 4f 66 46 |p%=1 . N|umberOfF|
|000048e0| 6f 6e 74 73 25 0d 14 dc | 35 20 20 20 20 20 20 46 |onts%...|5 F|
|000048f0| 75 6c 6c 4e 61 6d 65 24 | 3d a4 5f 52 65 61 64 53 |ullName$|=._ReadS|
|00004900| 74 72 69 6e 67 28 42 6c | 6f 63 6b 25 2b 52 65 61 |tring(Bl|ock%+Rea|
|00004910| 64 50 6f 69 6e 74 65 72 | 25 29 0d 14 e6 20 20 20 |dPointer|%)... |
|00004920| 20 20 20 20 4e 75 6d 62 | 65 72 4f 66 53 75 62 45 | Numb|erOfSubE|
|00004930| 6e 74 72 69 65 73 25 2b | 3d 31 0d 14 f0 64 20 20 |ntries%+|=1...d |
|00004940| 20 20 20 20 49 6e 64 69 | 72 65 63 74 65 64 46 6f | Indi|rectedFo|
|00004950| 6e 74 44 61 74 61 25 3f | 52 65 73 65 72 76 65 64 |ntData%?|Reserved|
|00004960| 25 3d 4e 75 6d 62 65 72 | 4f 66 53 75 62 45 6e 74 |%=Number|OfSubEnt|
|00004970| 72 69 65 73 25 20 3a 20 | f4 20 53 74 6f 72 65 20 |ries% : |. Store |
|00004980| 6e 75 6d 62 65 72 20 6f | 66 20 73 74 79 6c 65 73 |number o|f styles|
|00004990| 20 66 6f 72 20 65 61 63 | 68 20 66 6f 6e 74 0d 14 | for eac|h font..|
|000049a0| fa 26 20 20 20 20 20 20 | 44 6f 74 50 6f 73 69 74 |.& |DotPosit|
|000049b0| 69 6f 6e 25 3d a7 46 75 | 6c 6c 4e 61 6d 65 24 2c |ion%=.Fu|llName$,|
|000049c0| 22 2e 22 29 0d 15 04 34 | 20 20 20 20 20 20 e7 20 |".")...4| . |
|000049d0| c0 46 75 6c 6c 4e 61 6d | 65 24 2c 44 6f 74 50 6f |.FullNam|e$,DotPo|
|000049e0| 73 69 74 69 6f 6e 25 2d | 31 29 20 3c 3e 20 4f 6c |sition%-|1) <> Ol|
|000049f0| 64 4e 61 6d 65 24 20 8c | 0d 15 0e 19 20 20 20 20 |dName$ .|.... |
|00004a00| 20 20 20 20 20 54 79 70 | 65 46 61 63 65 25 2b 3d | Typ|eFace%+=|
|00004a10| 31 0d 15 18 ac 20 20 20 | 20 20 20 20 20 20 e7 20 |1.... | . |
|00004a20| 54 79 70 65 46 61 63 65 | 25 3e 4d 61 78 54 79 70 |TypeFace|%>MaxTyp|
|00004a30| 65 46 61 63 65 25 20 8c | 20 85 20 30 2c 22 47 6f |eFace% .| . 0,"Go|
|00004a40| 6f 64 20 47 72 69 65 66 | 2c 20 4a 75 73 74 20 68 |od Grief|, Just h|
|00004a50| 6f 77 20 6d 61 6e 79 20 | 66 6f 6e 74 73 20 68 61 |ow many |fonts ha|
|00004a60| 76 65 20 79 6f 75 20 67 | 6f 74 20 6f 6e 20 74 68 |ve you g|ot on th|
|00004a70| 69 73 20 64 69 73 63 3f | 20 2d 20 49 20 63 61 6e |is disc?| - I can|
|00004a80| 20 6f 6e 6c 79 20 63 6f | 70 65 20 77 69 74 68 20 | only co|pe with |
|00004a90| 22 2b c3 28 4d 61 78 54 | 79 70 65 46 61 63 65 25 |"+.(MaxT|ypeFace%|
|00004aa0| 29 2b 22 20 44 69 66 66 | 65 72 65 6e 74 20 66 6f |)+" Diff|erent fo|
|00004ab0| 6e 74 20 66 61 6d 69 6c | 69 65 73 21 22 0d 15 22 |nt famil|ies!".."|
|00004ac0| 4c 20 20 20 20 20 20 20 | 20 20 53 75 62 4d 65 6e |L | SubMen|
|00004ad0| 75 49 6e 64 69 72 65 63 | 74 65 64 25 28 54 79 70 |uIndirec|ted%(Typ|
|00004ae0| 65 46 61 63 65 25 29 3d | 57 72 69 74 65 50 6f 69 |eFace%)=|WritePoi|
|00004af0| 6e 74 65 72 25 2b 49 6e | 64 69 72 65 63 74 65 64 |nter%+In|directed|
|00004b00| 46 6f 6e 74 44 61 74 61 | 25 0d 15 2c 37 20 20 20 |FontData|%..,7 |
|00004b10| 20 20 20 20 20 20 52 65 | 73 65 72 76 65 64 25 3d | Re|served%=|
|00004b20| 57 72 69 74 65 50 6f 69 | 6e 74 65 72 25 20 3a 20 |WritePoi|nter% : |
|00004b30| 57 72 69 74 65 50 6f 69 | 6e 74 65 72 25 2b 3d 31 |WritePoi|nter%+=1|
|00004b40| 0d 15 36 40 20 20 20 20 | 20 20 20 20 20 4e 75 6d |..6@ | Num|
|00004b50| 62 65 72 4f 66 53 75 62 | 45 6e 74 72 69 65 73 25 |berOfSub|Entries%|
|00004b60| 3d 30 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |=0 | |
|00004b70| 3a 20 f4 20 5a 65 72 6f | 20 43 6f 75 6e 74 65 72 |: . Zero| Counter|
|00004b80| 0d 15 40 30 20 20 20 20 | 20 20 20 20 20 4f 6c 64 |..@0 | Old|
|00004b90| 4e 61 6d 65 24 3d c0 46 | 75 6c 6c 4e 61 6d 65 24 |Name$=.F|ullName$|
|00004ba0| 2c 44 6f 74 50 6f 73 69 | 74 69 6f 6e 25 2d 31 29 |,DotPosi|tion%-1)|
|00004bb0| 0d 15 4a 0b 20 20 20 20 | 20 20 cd 0d 15 54 1d 20 |..J. | ...T. |
|00004bc0| 20 20 20 20 20 e7 20 44 | 6f 74 50 6f 73 69 74 69 | . D|otPositi|
|00004bd0| 6f 6e 25 3c 3e 30 20 8c | 0d 15 5e 58 20 20 20 20 |on%<>0 .|..^X |
|00004be0| 20 20 20 20 20 f2 5f 57 | 72 69 74 65 53 74 72 69 | ._W|riteStri|
|00004bf0| 6e 67 28 49 6e 64 69 72 | 65 63 74 65 64 46 6f 6e |ng(Indir|ectedFon|
|00004c00| 74 44 61 74 61 25 2b 57 | 72 69 74 65 50 6f 69 6e |tData%+W|ritePoin|
|00004c10| 74 65 72 25 2c c1 46 75 | 6c 6c 4e 61 6d 65 24 2c |ter%,.Fu|llName$,|
|00004c20| 44 6f 74 50 6f 73 69 74 | 69 6f 6e 25 2b 31 29 29 |DotPosit|ion%+1))|
|00004c30| 0d 15 68 0b 20 20 20 20 | 20 20 cc 0d 15 72 47 20 |..h. | ...rG |
|00004c40| 20 20 20 20 20 20 20 20 | f2 5f 57 72 69 74 65 53 | |._WriteS|
|00004c50| 74 72 69 6e 67 28 49 6e | 64 69 72 65 63 74 65 64 |tring(In|directed|
|00004c60| 46 6f 6e 74 44 61 74 61 | 25 2b 57 72 69 74 65 50 |FontData|%+WriteP|
|00004c70| 6f 69 6e 74 65 72 25 2c | 22 44 65 66 61 75 6c 74 |ointer%,|"Default|
|00004c80| 22 29 0d 15 7c 0b 20 20 | 20 20 20 20 cd 0d 15 86 |")..|. | ....|
|00004c90| 4d 20 20 20 20 20 20 57 | 72 69 74 65 50 6f 69 6e |M W|ritePoin|
|00004ca0| 74 65 72 25 2b 3d a9 28 | a4 5f 52 65 61 64 53 74 |ter%+=.(|._ReadSt|
|00004cb0| 72 69 6e 67 28 49 6e 64 | 69 72 65 63 74 65 64 46 |ring(Ind|irectedF|
|00004cc0| 6f 6e 74 44 61 74 61 25 | 2b 57 72 69 74 65 50 6f |ontData%|+WritePo|
|00004cd0| 69 6e 74 65 72 25 29 29 | 2b 31 0d 15 90 26 20 20 |inter%))|+1...& |
|00004ce0| 20 20 20 20 52 65 61 64 | 50 6f 69 6e 74 65 72 25 | Read|Pointer%|
|00004cf0| 2b 3d a9 28 46 75 6c 6c | 4e 61 6d 65 24 29 2b 31 |+=.(Full|Name$)+1|
|00004d00| 0d 15 9a 08 20 20 20 ed | 0d 15 a4 68 20 20 20 49 |.... .|...h I|
|00004d10| 6e 64 69 72 65 63 74 65 | 64 46 6f 6e 74 44 61 74 |ndirecte|dFontDat|
|00004d20| 61 25 3f 52 65 73 65 72 | 76 65 64 25 3d 28 4e 75 |a%?Reser|ved%=(Nu|
|00004d30| 6d 62 65 72 4f 66 53 75 | 62 45 6e 74 72 69 65 73 |mberOfSu|bEntries|
|00004d40| 25 2b 31 29 20 3a 20 f4 | 20 57 72 69 74 65 20 62 |%+1) : .| Write b|
|00004d50| 61 63 6b 20 63 6f 75 6e | 74 20 61 66 74 65 72 20 |ack coun|t after |
|00004d60| 6c 61 73 74 20 66 6f 6e | 74 20 66 6f 75 6e 64 21 |last fon|t found!|
|00004d70| 0d 15 ae 2b 20 20 20 f4 | 20 4e 6f 77 20 45 78 74 |...+ .| Now Ext|
|00004d80| 72 61 63 74 20 61 6c 6c | 20 74 68 65 20 54 79 70 |ract all| the Typ|
|00004d90| 65 46 61 63 65 20 6e 61 | 6d 65 73 0d 15 b8 5b 20 |eFace na|mes...[ |
|00004da0| 20 20 52 65 61 64 50 6f | 69 6e 74 65 72 25 3d 30 | ReadPo|inter%=0|
|00004db0| 20 3a 20 4f 6c 64 4e 61 | 6d 65 24 3d 22 22 20 3a | : OldNa|me$="" :|
|00004dc0| 20 46 6f 6e 74 4d 65 6e | 75 49 6e 64 69 72 65 63 | FontMen|uIndirec|
|00004dd0| 74 65 64 25 3d 57 72 69 | 74 65 50 6f 69 6e 74 65 |ted%=Wri|tePointe|
|00004de0| 72 25 2b 49 6e 64 69 72 | 65 63 74 65 64 46 6f 6e |r%+Indir|ectedFon|
|00004df0| 74 44 61 74 61 25 0d 15 | c2 21 20 20 20 e3 20 4c |tData%..|.! . L|
|00004e00| 6f 6f 70 25 3d 31 20 b8 | 20 4e 75 6d 62 65 72 4f |oop%=1 .| NumberO|
|00004e10| 66 46 6f 6e 74 73 25 0d | 15 cc 35 20 20 20 20 20 |fFonts%.|..5 |
|00004e20| 20 46 75 6c 6c 4e 61 6d | 65 24 3d a4 5f 52 65 61 | FullNam|e$=._Rea|
|00004e30| 64 53 74 72 69 6e 67 28 | 42 6c 6f 63 6b 25 2b 52 |dString(|Block%+R|
|00004e40| 65 61 64 50 6f 69 6e 74 | 65 72 25 29 0d 15 d6 26 |eadPoint|er%)...&|
|00004e50| 20 20 20 20 20 20 44 6f | 74 50 6f 73 69 74 69 6f | Do|tPositio|
|00004e60| 6e 25 3d a7 46 75 6c 6c | 4e 61 6d 65 24 2c 22 2e |n%=.Full|Name$,".|
|00004e70| 22 29 0d 15 e0 39 20 20 | 20 20 20 20 e7 20 44 6f |")...9 | . Do|
|00004e80| 74 50 6f 73 69 74 69 6f | 6e 25 3c 3d 30 20 8c 20 |tPositio|n%<=0 . |
|00004e90| 44 6f 74 50 6f 73 69 74 | 69 6f 6e 25 3d a9 28 46 |DotPosit|ion%=.(F|
|00004ea0| 75 6c 6c 4e 61 6d 65 24 | 29 2b 31 0d 15 ea 2d 20 |ullName$|)+1...- |
|00004eb0| 20 20 20 20 20 4e 65 77 | 4e 61 6d 65 24 3d c0 46 | New|Name$=.F|
|00004ec0| 75 6c 6c 4e 61 6d 65 24 | 2c 44 6f 74 50 6f 73 69 |ullName$|,DotPosi|
|00004ed0| 74 69 6f 6e 25 2d 31 29 | 0d 15 f4 22 20 20 20 20 |tion%-1)|..." |
|00004ee0| 20 20 e7 20 4e 65 77 4e | 61 6d 65 24 20 3c 3e 20 | . NewN|ame$ <> |
|00004ef0| 4f 6c 64 4e 61 6d 65 24 | 20 8c 0d 15 fe 1e 20 20 |OldName$| ..... |
|00004f00| 20 20 20 20 20 20 20 4f | 6c 64 4e 61 6d 65 24 3d | O|ldName$=|
|00004f10| 4e 65 77 4e 61 6d 65 24 | 0d 16 08 46 20 20 20 20 |NewName$|...F |
|00004f20| 20 20 20 20 20 f2 5f 57 | 72 69 74 65 53 74 72 69 | ._W|riteStri|
|00004f30| 6e 67 28 49 6e 64 69 72 | 65 63 74 65 64 46 6f 6e |ng(Indir|ectedFon|
|00004f40| 74 44 61 74 61 25 2b 57 | 72 69 74 65 50 6f 69 6e |tData%+W|ritePoin|
|00004f50| 74 65 72 25 2c 4e 65 77 | 4e 61 6d 65 24 29 0d 16 |ter%,New|Name$)..|
|00004f60| 12 29 20 20 20 20 20 20 | 20 20 20 57 72 69 74 65 |.) | Write|
|00004f70| 50 6f 69 6e 74 65 72 25 | 2b 3d a9 28 4e 65 77 4e |Pointer%|+=.(NewN|
|00004f80| 61 6d 65 24 29 2b 31 0d | 16 1c 0b 20 20 20 20 20 |ame$)+1.|... |
|00004f90| 20 cd 0d 16 26 26 20 20 | 20 20 20 20 52 65 61 64 | ...&& | Read|
|00004fa0| 50 6f 69 6e 74 65 72 25 | 2b 3d a9 28 46 75 6c 6c |Pointer%|+=.(Full|
|00004fb0| 4e 61 6d 65 24 29 2b 31 | 0d 16 30 08 20 20 20 ed |Name$)+1|..0. .|
|00004fc0| 0d 16 3a 19 20 20 20 c8 | 99 20 22 48 6f 75 72 67 |..:. .|. "Hourg|
|00004fd0| 6c 61 73 73 5f 4f 66 66 | 22 0d 16 44 0e 3d 54 79 |lass_Off|"..D.=Ty|
|00004fe0| 70 65 46 61 63 65 25 0d | 16 4e 05 3a 0d 16 58 77 |peFace%.|.N.:..Xw|
|00004ff0| f4 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. ******|********|
|00005000| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005040| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005050| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005060| 2a 2a 2a 0d 16 62 76 f4 | 20 42 75 69 6c 64 73 20 |***..bv.| Builds |
|00005070| 72 61 77 20 66 6f 6e 74 | 6c 69 73 74 20 64 61 74 |raw font|list dat|
|00005080| 61 20 69 6e 74 6f 20 61 | 20 74 77 6f 20 6c 65 76 |a into a| two lev|
|00005090| 65 6c 20 6d 65 6e 75 20 | 73 74 72 75 63 74 75 72 |el menu |structur|
|000050a0| 65 2c 20 54 79 70 65 66 | 61 63 65 20 2d 20 28 46 |e, Typef|ace - (F|
|000050b0| 6f 6e 74 4d 65 6e 75 48 | 61 6e 64 6c 65 25 29 20 |ontMenuH|andle%) |
|000050c0| 2d 20 42 65 69 6e 67 20 | 61 20 6c 69 73 74 20 6f |- Being |a list o|
|000050d0| 66 20 61 6c 6c 20 74 68 | 65 0d 16 6c 70 f4 20 20 |f all th|e..lp. |
|000050e0| 41 76 61 69 6c 61 62 6c | 65 20 66 6f 6e 74 2d 66 |Availabl|e font-f|
|000050f0| 61 6d 69 6c 69 65 73 20 | 61 6e 64 2c 20 53 74 79 |amilies |and, Sty|
|00005100| 6c 65 20 2d 20 4d 65 6e | 75 48 61 6e 64 6c 65 28 |le - Men|uHandle(|
|00005110| 54 79 70 65 46 61 63 65 | 45 6e 74 72 79 2b 31 29 |TypeFace|Entry+1)|
|00005120| 25 20 2d 20 42 65 69 6e | 67 20 61 20 6c 69 73 74 |% - Bein|g a list|
|00005130| 20 6f 66 20 65 61 63 68 | 20 6f 66 20 74 68 65 20 | of each| of the |
|00005140| 61 76 61 69 6c 61 62 6c | 65 0d 16 76 75 f4 20 20 |availabl|e..vu. |
|00005150| 53 74 79 6c 65 73 20 66 | 6f 72 20 74 68 65 20 73 |Styles f|or the s|
|00005160| 65 6c 65 63 74 65 64 20 | 74 79 70 65 66 61 63 65 |elected |typeface|
|00005170| 2e 20 49 66 20 31 20 6f | 72 20 6d 6f 72 65 20 73 |. If 1 o|r more s|
|00005180| 74 79 6c 65 73 20 61 72 | 65 20 61 76 61 69 6c 61 |tyles ar|e availa|
|00005190| 62 6c 65 20 74 68 65 6e | 20 61 20 73 75 62 6d 65 |ble then| a subme|
|000051a0| 6e 75 20 69 73 20 61 75 | 74 6f 6d 61 74 69 63 61 |nu is au|tomatica|
|000051b0| 6c 6c 79 20 67 65 6e 65 | 72 61 74 65 64 21 0d 16 |lly gene|rated!..|
|000051c0| 80 1a f4 20 55 73 65 73 | 20 3a 20 46 4e 5f 52 65 |... Uses| : FN_Re|
|000051d0| 61 64 53 74 72 69 6e 67 | 0d 16 8a 77 f4 20 2a 2a |adString|...w. **|
|000051e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000051f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005200| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005230| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00005250| 16 94 29 dd 20 f2 5f 43 | 72 65 61 74 65 46 6f 6e |..). ._C|reateFon|
|00005260| 74 4d 65 6e 75 28 4e 75 | 6d 62 65 72 4f 66 53 75 |tMenu(Nu|mberOfSu|
|00005270| 62 4d 65 6e 75 73 25 29 | 0d 16 9e 15 ea 20 50 6f |bMenus%)|..... Po|
|00005280| 69 6e 74 65 72 25 2c 45 | 6e 74 72 79 24 0d 16 a8 |inter%,E|ntry$...|
|00005290| 24 20 20 20 e3 20 4c 6f | 6f 70 25 3d 31 20 b8 20 |$ . Lo|op%=1 . |
|000052a0| 4e 75 6d 62 65 72 4f 66 | 53 75 62 4d 65 6e 75 73 |NumberOf|SubMenus|
|000052b0| 25 0d 16 b2 34 20 20 20 | 20 20 20 4d 65 6e 75 48 |%...4 | MenuH|
|000052c0| 61 6e 64 6c 65 25 28 4c | 6f 6f 70 25 29 3d 4d 65 |andle%(L|oop%)=Me|
|000052d0| 6e 75 53 74 72 75 63 74 | 75 72 65 25 2b 50 6f 69 |nuStruct|ure%+Poi|
|000052e0| 6e 74 65 72 25 0d 16 bc | 2f 20 20 20 20 20 20 53 |nter%...|/ S|
|000052f0| 75 62 50 6f 69 6e 74 65 | 72 25 3d 53 75 62 4d 65 |ubPointe|r%=SubMe|
|00005300| 6e 75 49 6e 64 69 72 65 | 63 74 65 64 25 28 4c 6f |nuIndire|cted%(Lo|
|00005310| 6f 70 25 29 0d 16 c6 27 | 20 20 20 20 20 20 4e 75 |op%)...'| Nu|
|00005320| 6d 62 65 72 4f 66 45 6e | 74 72 79 73 3d 3f 53 75 |mberOfEn|trys=?Su|
|00005330| 62 50 6f 69 6e 74 65 72 | 25 2d 31 0d 16 d0 18 20 |bPointer|%-1.... |
|00005340| 20 20 20 20 20 53 75 62 | 50 6f 69 6e 74 65 72 25 | Sub|Pointer%|
|00005350| 2b 3d 31 0d 16 da 74 20 | 20 20 20 20 20 e7 20 4e |+=1...t | . N|
|00005360| 75 6d 62 65 72 4f 66 45 | 6e 74 72 79 73 3c 31 20 |umberOfE|ntrys<1 |
|00005370| 8c 20 4d 65 6e 75 48 61 | 6e 64 6c 65 25 28 4c 6f |. MenuHa|ndle%(Lo|
|00005380| 6f 70 25 29 3d 4d 65 6e | 75 48 61 6e 64 6c 65 25 |op%)=Men|uHandle%|
|00005390| 28 4c 6f 6f 70 25 29 20 | 84 20 31 3c 3c 33 31 20 |(Loop%) |. 1<<31 |
|000053a0| 3a 20 f4 20 4e 6f 20 73 | 75 62 2d 6d 65 6e 75 20 |: . No s|ub-menu |
|000053b0| 61 76 61 69 6c 61 62 6c | 65 20 2d 20 53 65 74 20 |availabl|e - Set |
|000053c0| 54 6f 70 20 42 69 74 0d | 16 e4 12 20 20 20 20 20 |Top Bit.|... |
|000053d0| 20 f4 20 48 65 61 64 65 | 72 0d 16 ee 3b 20 20 20 | . Heade|r...; |
|000053e0| 20 20 20 24 28 4d 65 6e | 75 53 74 72 75 63 74 75 | $(Men|uStructu|
|000053f0| 72 65 25 2b 50 6f 69 6e | 74 65 72 25 29 3d 22 53 |re%+Poin|ter%)="S|
|00005400| 74 79 6c 65 22 20 3a 20 | f4 20 54 69 74 6c 65 20 |tyle" : |. Title |
|00005410| 54 65 78 74 0d 16 f8 48 | 20 20 20 20 20 20 4d 65 |Text...H| Me|
|00005420| 6e 75 53 74 72 75 63 74 | 75 72 65 25 3f 28 50 6f |nuStruct|ure%?(Po|
|00005430| 69 6e 74 65 72 25 2b 31 | 32 29 3d 37 20 20 20 20 |inter%+1|2)=7 |
|00005440| 20 3a 20 f4 20 54 69 74 | 6c 65 20 46 6f 72 65 67 | : . Tit|le Foreg|
|00005450| 72 6f 75 6e 64 20 43 6f | 6c 6f 75 72 0d 17 02 48 |round Co|lour...H|
|00005460| 20 20 20 20 20 20 4d 65 | 6e 75 53 74 72 75 63 74 | Me|nuStruct|
|00005470| 75 72 65 25 3f 28 50 6f | 69 6e 74 65 72 25 2b 31 |ure%?(Po|inter%+1|
|00005480| 33 29 3d 32 20 20 20 20 | 20 3a 20 f4 20 54 69 74 |3)=2 | : . Tit|
|00005490| 6c 65 20 42 61 63 6b 67 | 72 6f 75 6e 64 20 43 6f |le Backg|round Co|
|000054a0| 6c 6f 75 72 0d 17 0c 4c | 20 20 20 20 20 20 4d 65 |lour...L| Me|
|000054b0| 6e 75 53 74 72 75 63 74 | 75 72 65 25 3f 28 50 6f |nuStruct|ure%?(Po|
|000054c0| 69 6e 74 65 72 25 2b 31 | 34 29 3d 37 20 20 20 20 |inter%+1|4)=7 |
|000054d0| 20 3a 20 f4 20 57 6f 72 | 6b 20 41 72 65 61 20 46 | : . Wor|k Area F|
|000054e0| 6f 72 65 67 72 6f 75 6e | 64 20 43 6f 6c 6f 75 72 |oregroun|d Colour|
|000054f0| 0d 17 16 4c 20 20 20 20 | 20 20 4d 65 6e 75 53 74 |...L | MenuSt|
|00005500| 72 75 63 74 75 72 65 25 | 3f 28 50 6f 69 6e 74 65 |ructure%|?(Pointe|
|00005510| 72 25 2b 31 35 29 3d 30 | 20 20 20 20 20 3a 20 f4 |r%+15)=0| : .|
|00005520| 20 57 6f 72 6b 20 41 72 | 65 61 20 42 61 63 6b 67 | Work Ar|ea Backg|
|00005530| 72 6f 75 6e 64 20 43 6f | 6c 6f 75 72 0d 17 20 49 |round Co|lour.. I|
|00005540| 20 20 20 20 20 20 4d 65 | 6e 75 53 74 72 75 63 74 | Me|nuStruct|
|00005550| 75 72 65 25 21 28 50 6f | 69 6e 74 65 72 25 2b 31 |ure%!(Po|inter%+1|
|00005560| 36 29 3d 31 36 2a 32 31 | 20 3a 20 f4 20 57 69 64 |6)=16*21| : . Wid|
|00005570| 74 68 20 69 6e 20 63 68 | 61 72 61 63 74 65 72 73 |th in ch|aracters|
|00005580| 20 2a 20 31 36 0d 17 2a | 44 20 20 20 20 20 20 4d | * 16..*|D M|
|00005590| 65 6e 75 53 74 72 75 63 | 74 75 72 65 25 21 28 50 |enuStruc|ture%!(P|
|000055a0| 6f 69 6e 74 65 72 25 2b | 32 30 29 3d 34 30 20 20 |ointer%+|20)=40 |
|000055b0| 20 20 3a 20 f4 20 48 65 | 69 67 68 74 20 6f 66 20 | : . He|ight of |
|000055c0| 4d 65 6e 75 20 49 74 65 | 6d 0d 17 34 4b 20 20 20 |Menu Ite|m..4K |
|000055d0| 20 20 20 4d 65 6e 75 53 | 74 72 75 63 74 75 72 65 | MenuS|tructure|
|000055e0| 25 21 28 50 6f 69 6e 74 | 65 72 25 2b 32 34 29 3d |%!(Point|er%+24)=|
|000055f0| 30 20 20 20 20 20 3a 20 | f4 20 56 65 72 74 69 63 |0 : |. Vertic|
|00005600| 61 6c 20 47 61 70 20 42 | 65 74 77 65 65 6e 20 49 |al Gap B|etween I|
|00005610| 74 65 6d 73 0d 17 3e 16 | 20 20 20 20 20 20 50 6f |tems..>.| Po|
|00005620| 69 6e 74 65 72 25 2b 3d | 32 38 0d 17 48 1f 20 20 |inter%+=|28..H. |
|00005630| 20 20 20 20 f4 20 44 61 | 74 61 20 66 6f 72 20 65 | . Da|ta for e|
|00005640| 61 63 68 20 65 6e 74 72 | 79 0d 17 52 25 20 20 20 |ach entr|y..R% |
|00005650| 20 20 20 e3 20 4c 6f 6f | 70 32 25 3d 30 20 b8 20 | . Loo|p2%=0 . |
|00005660| 4e 75 6d 62 65 72 4f 66 | 45 6e 74 72 79 73 0d 17 |NumberOf|Entrys..|
|00005670| 5c 2d 20 20 20 20 20 20 | 20 20 20 45 6e 74 72 79 |\- | Entry|
|00005680| 24 3d a4 5f 52 65 61 64 | 53 74 72 69 6e 67 28 53 |$=._Read|String(S|
|00005690| 75 62 50 6f 69 6e 74 65 | 72 25 29 0d 17 66 48 20 |ubPointe|r%)..fH |
|000056a0| 20 20 20 20 20 20 20 20 | 4d 65 6e 75 53 74 72 75 | |MenuStru|
|000056b0| 63 74 75 72 65 25 21 28 | 50 6f 69 6e 74 65 72 25 |cture%!(|Pointer%|
|000056c0| 2b 30 30 29 3d 30 20 20 | 20 20 20 20 20 20 20 20 |+00)=0 | |
|000056d0| 20 20 20 20 20 3a 20 f4 | 20 4d 65 6e 75 20 46 6c | : .| Menu Fl|
|000056e0| 61 67 73 0d 17 70 47 20 | 20 20 20 20 20 20 20 20 |ags..pG | |
|000056f0| e7 20 4c 6f 6f 70 32 25 | 3d 4e 75 6d 62 65 72 4f |. Loop2%|=NumberO|
|00005700| 66 45 6e 74 72 79 73 20 | 8c 20 4d 65 6e 75 53 74 |fEntrys |. MenuSt|
|00005710| 72 75 63 74 75 72 65 25 | 21 28 50 6f 69 6e 74 65 |ructure%|!(Pointe|
|00005720| 72 25 2b 30 30 29 3d 26 | 38 30 0d 17 7a 58 20 20 |r%+00)=&|80..zX |
|00005730| 20 20 20 20 20 20 20 4d | 65 6e 75 53 74 72 75 63 | M|enuStruc|
|00005740| 74 75 72 65 25 21 28 50 | 6f 69 6e 74 65 72 25 2b |ture%!(P|ointer%+|
|00005750| 30 34 29 3d 2d 31 20 20 | 20 20 20 20 20 20 20 20 |04)=-1 | |
|00005760| 20 20 20 20 3a 20 f4 20 | 53 75 62 2d 4d 65 6e 75 | : . |Sub-Menu|
|00005770| 20 50 6f 69 6e 74 65 72 | 20 28 2d 31 3d 4e 4f 4e | Pointer| (-1=NON|
|00005780| 45 29 0d 17 84 4c 20 20 | 20 20 20 20 20 20 20 4d |E)...L | M|
|00005790| 65 6e 75 53 74 72 75 63 | 74 75 72 65 25 21 28 50 |enuStruc|ture%!(P|
|000057a0| 6f 69 6e 74 65 72 25 2b | 30 38 29 3d 26 31 30 31 |ointer%+|08)=&101|
|000057b0| 20 84 20 28 37 3c 3c 32 | 34 29 20 3a 20 f4 20 4d | . (7<<2|4) : . M|
|000057c0| 65 6e 75 20 49 63 6f 6e | 20 46 6c 61 67 73 0d 17 |enu Icon| Flags..|
|000057d0| 8e 5e 20 20 20 20 20 20 | 20 20 20 4d 65 6e 75 53 |.^ | MenuS|
|000057e0| 74 72 75 63 74 75 72 65 | 25 21 28 50 6f 69 6e 74 |tructure|%!(Point|
|000057f0| 65 72 25 2b 31 32 29 3d | 53 75 62 50 6f 69 6e 74 |er%+12)=|SubPoint|
|00005800| 65 72 25 20 20 20 20 20 | 3a 20 f4 20 4d 65 6e 75 |er% |: . Menu|
|00005810| 20 49 63 6f 6e 20 44 61 | 74 61 20 2d 20 50 6f 69 | Icon Da|ta - Poi|
|00005820| 6e 74 65 72 20 74 6f 20 | 74 65 78 74 0d 17 98 6b |nter to |text...k|
|00005830| 20 20 20 20 20 20 20 20 | 20 4d 65 6e 75 53 74 72 | | MenuStr|
|00005840| 75 63 74 75 72 65 25 21 | 28 50 6f 69 6e 74 65 72 |ucture%!|(Pointer|
|00005850| 25 2b 31 36 29 3d 2d 31 | 20 20 20 20 20 20 20 20 |%+16)=-1| |
|00005860| 20 20 20 20 20 20 3a 20 | f4 20 4d 65 6e 75 20 49 | : |. Menu I|
|00005870| 63 6f 6e 20 44 61 74 61 | 20 2d 20 50 6f 69 6e 74 |con Data| - Point|
|00005880| 65 72 20 74 6f 20 76 61 | 6c 69 64 61 74 69 6f 6e |er to va|lidation|
|00005890| 20 73 74 72 69 6e 67 0d | 17 a2 5b 20 20 20 20 20 | string.|..[ |
|000058a0| 20 20 20 20 4d 65 6e 75 | 53 74 72 75 63 74 75 72 | Menu|Structur|
|000058b0| 65 25 21 28 50 6f 69 6e | 74 65 72 25 2b 32 30 29 |e%!(Poin|ter%+20)|
|000058c0| 3d a9 28 45 6e 74 72 79 | 24 29 2b 31 20 20 20 3a |=.(Entry|$)+1 :|
|000058d0| 20 f4 20 4d 65 6e 75 20 | 49 63 6f 6e 20 44 61 74 | . Menu |Icon Dat|
|000058e0| 61 20 2d 20 4c 65 6e 67 | 74 68 20 6f 66 20 74 65 |a - Leng|th of te|
|000058f0| 78 74 0d 17 ac 19 20 20 | 20 20 20 20 20 20 20 50 |xt.... | P|
|00005900| 6f 69 6e 74 65 72 25 2b | 3d 32 34 0d 17 b6 25 20 |ointer%+|=24...% |
|00005910| 20 20 20 20 20 20 20 20 | 53 75 62 50 6f 69 6e 74 | |SubPoint|
|00005920| 65 72 25 2b 3d a9 28 45 | 6e 74 72 79 24 29 2b 31 |er%+=.(E|ntry$)+1|
|00005930| 0d 17 c0 0b 20 20 20 20 | 20 20 ed 0d 17 ca 08 20 |.... | ..... |
|00005940| 20 20 ed 0d 17 d4 22 20 | 20 20 f4 20 4e 6f 77 20 | ...." | . Now |
|00005950| 63 72 65 61 74 65 20 4d | 61 69 6e 20 46 6f 6e 74 |create M|ain Font|
|00005960| 20 6d 65 6e 75 0d 17 de | 2e 20 20 20 46 6f 6e 74 | menu...|. Font|
|00005970| 4d 65 6e 75 48 61 6e 64 | 6c 65 25 3d 4d 65 6e 75 |MenuHand|le%=Menu|
|00005980| 53 74 72 75 63 74 75 72 | 65 25 2b 50 6f 69 6e 74 |Structur|e%+Point|
|00005990| 65 72 25 0d 17 e8 0f 20 | 20 20 f4 20 48 65 61 64 |er%.... | . Head|
|000059a0| 65 72 0d 17 f2 3b 20 20 | 20 24 28 4d 65 6e 75 53 |er...; | $(MenuS|
|000059b0| 74 72 75 63 74 75 72 65 | 25 2b 50 6f 69 6e 74 65 |tructure|%+Pointe|
|000059c0| 72 25 29 3d 22 54 79 70 | 65 46 61 63 65 22 20 3a |r%)="Typ|eFace" :|
|000059d0| 20 f4 20 54 69 74 6c 65 | 20 54 65 78 74 0d 17 fc | . Title| Text...|
|000059e0| 48 20 20 20 4d 65 6e 75 | 53 74 72 75 63 74 75 72 |H Menu|Structur|
|000059f0| 65 25 3f 28 50 6f 69 6e | 74 65 72 25 2b 31 32 29 |e%?(Poin|ter%+12)|
|00005a00| 3d 37 20 20 20 20 20 20 | 20 20 3a 20 f4 20 54 69 |=7 | : . Ti|
|00005a10| 74 6c 65 20 46 6f 72 65 | 67 72 6f 75 6e 64 20 43 |tle Fore|ground C|
|00005a20| 6f 6c 6f 75 72 0d 18 06 | 48 20 20 20 4d 65 6e 75 |olour...|H Menu|
|00005a30| 53 74 72 75 63 74 75 72 | 65 25 3f 28 50 6f 69 6e |Structur|e%?(Poin|
|00005a40| 74 65 72 25 2b 31 33 29 | 3d 32 20 20 20 20 20 20 |ter%+13)|=2 |
|00005a50| 20 20 3a 20 f4 20 54 69 | 74 6c 65 20 42 61 63 6b | : . Ti|tle Back|
|00005a60| 67 72 6f 75 6e 64 20 43 | 6f 6c 6f 75 72 0d 18 10 |ground C|olour...|
|00005a70| 4c 20 20 20 4d 65 6e 75 | 53 74 72 75 63 74 75 72 |L Menu|Structur|
|00005a80| 65 25 3f 28 50 6f 69 6e | 74 65 72 25 2b 31 34 29 |e%?(Poin|ter%+14)|
|00005a90| 3d 37 20 20 20 20 20 20 | 20 20 3a 20 f4 20 57 6f |=7 | : . Wo|
|00005aa0| 72 6b 20 41 72 65 61 20 | 46 6f 72 65 67 72 6f 75 |rk Area |Foregrou|
|00005ab0| 6e 64 20 43 6f 6c 6f 75 | 72 0d 18 1a 4c 20 20 20 |nd Colou|r...L |
|00005ac0| 4d 65 6e 75 53 74 72 75 | 63 74 75 72 65 25 3f 28 |MenuStru|cture%?(|
|00005ad0| 50 6f 69 6e 74 65 72 25 | 2b 31 35 29 3d 30 20 20 |Pointer%|+15)=0 |
|00005ae0| 20 20 20 20 20 20 3a 20 | f4 20 57 6f 72 6b 20 41 | : |. Work A|
|00005af0| 72 65 61 20 42 61 63 6b | 67 72 6f 75 6e 64 20 43 |rea Back|ground C|
|00005b00| 6f 6c 6f 75 72 0d 18 24 | 49 20 20 20 4d 65 6e 75 |olour..$|I Menu|
|00005b10| 53 74 72 75 63 74 75 72 | 65 25 21 28 50 6f 69 6e |Structur|e%!(Poin|
|00005b20| 74 65 72 25 2b 31 36 29 | 3d 31 36 2a 31 33 20 20 |ter%+16)|=16*13 |
|00005b30| 20 20 3a 20 f4 20 57 69 | 64 74 68 20 69 6e 20 63 | : . Wi|dth in c|
|00005b40| 68 61 72 61 63 74 65 72 | 73 20 2a 20 31 36 0d 18 |haracter|s * 16..|
|00005b50| 2e 44 20 20 20 4d 65 6e | 75 53 74 72 75 63 74 75 |.D Men|uStructu|
|00005b60| 72 65 25 21 28 50 6f 69 | 6e 74 65 72 25 2b 32 30 |re%!(Poi|nter%+20|
|00005b70| 29 3d 34 30 20 20 20 20 | 20 20 20 3a 20 f4 20 48 |)=40 | : . H|
|00005b80| 65 69 67 68 74 20 6f 66 | 20 4d 65 6e 75 20 49 74 |eight of| Menu It|
|00005b90| 65 6d 0d 18 38 4b 20 20 | 20 4d 65 6e 75 53 74 72 |em..8K | MenuStr|
|00005ba0| 75 63 74 75 72 65 25 21 | 28 50 6f 69 6e 74 65 72 |ucture%!|(Pointer|
|00005bb0| 25 2b 32 34 29 3d 30 20 | 20 20 20 20 20 20 20 3a |%+24)=0 | :|
|00005bc0| 20 f4 20 56 65 72 74 69 | 63 61 6c 20 47 61 70 20 | . Verti|cal Gap |
|00005bd0| 42 65 74 77 65 65 6e 20 | 49 74 65 6d 73 0d 18 42 |Between |Items..B|
|00005be0| 13 20 20 20 50 6f 69 6e | 74 65 72 25 2b 3d 32 38 |. Poin|ter%+=28|
|00005bf0| 0d 18 4c 26 20 20 20 53 | 75 62 50 6f 69 6e 74 65 |..L& S|ubPointe|
|00005c00| 72 25 3d 46 6f 6e 74 4d | 65 6e 75 49 6e 64 69 72 |r%=FontM|enuIndir|
|00005c10| 65 63 74 65 64 25 0d 18 | 56 21 20 20 20 4e 75 6d |ected%..|V! Num|
|00005c20| 62 65 72 4f 66 45 6e 74 | 72 79 73 3d 54 79 70 65 |berOfEnt|rys=Type|
|00005c30| 46 61 63 65 25 2d 31 0d | 18 60 1c 20 20 20 f4 20 |Face%-1.|.`. . |
|00005c40| 44 61 74 61 20 66 6f 72 | 20 65 61 63 68 20 65 6e |Data for| each en|
|00005c50| 74 72 79 0d 18 6a 22 20 | 20 20 e3 20 4c 6f 6f 70 |try..j" | . Loop|
|00005c60| 32 25 3d 30 20 b8 20 4e | 75 6d 62 65 72 4f 66 45 |2%=0 . N|umberOfE|
|00005c70| 6e 74 72 79 73 0d 18 74 | 2a 20 20 20 20 20 20 45 |ntrys..t|* E|
|00005c80| 6e 74 72 79 24 3d a4 5f | 52 65 61 64 53 74 72 69 |ntry$=._|ReadStri|
|00005c90| 6e 67 28 53 75 62 50 6f | 69 6e 74 65 72 25 29 0d |ng(SubPo|inter%).|
|00005ca0| 18 7e 4c 20 20 20 20 20 | 20 4d 65 6e 75 53 74 72 |.~L | MenuStr|
|00005cb0| 75 63 74 75 72 65 25 21 | 28 50 6f 69 6e 74 65 72 |ucture%!|(Pointer|
|00005cc0| 25 2b 30 30 29 3d 30 20 | 20 20 20 20 20 20 20 20 |%+00)=0 | |
|00005cd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 20 f4 | | : .|
|00005ce0| 20 4d 65 6e 75 20 46 6c | 61 67 73 0d 18 88 44 20 | Menu Fl|ags...D |
|00005cf0| 20 20 20 20 20 e7 20 4c | 6f 6f 70 32 25 3d 4e 75 | . L|oop2%=Nu|
|00005d00| 6d 62 65 72 4f 66 45 6e | 74 72 79 73 20 8c 20 4d |mberOfEn|trys . M|
|00005d10| 65 6e 75 53 74 72 75 63 | 74 75 72 65 25 21 28 50 |enuStruc|ture%!(P|
|00005d20| 6f 69 6e 74 65 72 25 2b | 30 30 29 3d 26 38 30 0d |ointer%+|00)=&80.|
|00005d30| 18 92 5c 20 20 20 20 20 | 20 4d 65 6e 75 53 74 72 |..\ | MenuStr|
|00005d40| 75 63 74 75 72 65 25 21 | 28 50 6f 69 6e 74 65 72 |ucture%!|(Pointer|
|00005d50| 25 2b 30 34 29 3d 4d 65 | 6e 75 48 61 6e 64 6c 65 |%+04)=Me|nuHandle|
|00005d60| 25 28 4c 6f 6f 70 32 25 | 2b 31 29 20 20 3a 20 f4 |%(Loop2%|+1) : .|
|00005d70| 20 53 75 62 2d 4d 65 6e | 75 20 50 6f 69 6e 74 65 | Sub-Men|u Pointe|
|00005d80| 72 20 28 2d 31 3d 4e 4f | 4e 45 29 0d 18 9c 30 20 |r (-1=NO|NE)...0 |
|00005d90| 20 20 20 20 20 e7 20 28 | 4d 65 6e 75 48 61 6e 64 | . (|MenuHand|
|00005da0| 6c 65 25 28 4c 6f 6f 70 | 32 25 2b 31 29 20 80 20 |le%(Loop|2%+1) . |
|00005db0| 31 3c ca 33 31 29 3c 3e | 30 20 8c 0d 18 a6 38 20 |1<.31)<>|0 ....8 |
|00005dc0| 20 20 20 20 20 20 20 20 | f4 20 49 66 20 54 6f 70 | |. If Top|
|00005dd0| 20 42 69 74 20 53 65 74 | 20 54 68 65 6e 20 4e 6f | Bit Set| Then No|
|00005de0| 20 53 75 62 20 4d 65 6e | 75 20 41 76 61 69 6c 61 | Sub Men|u Availa|
|00005df0| 62 6c 65 0d 18 b0 2c 20 | 20 20 20 20 20 20 20 20 |ble..., | |
|00005e00| 4d 65 6e 75 53 74 72 75 | 63 74 75 72 65 25 21 28 |MenuStru|cture%!(|
|00005e10| 50 6f 69 6e 74 65 72 25 | 2b 30 34 29 3d 2d 31 0d |Pointer%|+04)=-1.|
|00005e20| 18 ba 46 20 20 20 20 20 | 20 20 20 20 4d 65 6e 75 |..F | Menu|
|00005e30| 48 61 6e 64 6c 65 25 28 | 4c 6f 6f 70 32 25 2b 31 |Handle%(|Loop2%+1|
|00005e40| 29 3d 4d 65 6e 75 48 61 | 6e 64 6c 65 25 28 4c 6f |)=MenuHa|ndle%(Lo|
|00005e50| 6f 70 32 25 2b 31 29 20 | 80 20 28 28 31 3c ca 33 |op2%+1) |. ((1<.3|
|00005e60| 31 29 2d 31 29 0d 18 c4 | 0b 20 20 20 20 20 20 cd |1)-1)...|. .|
|00005e70| 0d 18 ce 50 20 20 20 20 | 20 20 4d 65 6e 75 53 74 |...P | MenuSt|
|00005e80| 72 75 63 74 75 72 65 25 | 21 28 50 6f 69 6e 74 65 |ructure%|!(Pointe|
|00005e90| 72 25 2b 30 38 29 3d 26 | 31 30 31 20 84 20 28 37 |r%+08)=&|101 . (7|
|00005ea0| 3c 3c 32 34 29 20 20 20 | 20 20 20 20 20 3a 20 f4 |<<24) | : .|
|00005eb0| 20 4d 65 6e 75 20 49 63 | 6f 6e 20 46 6c 61 67 73 | Menu Ic|on Flags|
|00005ec0| 0d 18 d8 62 20 20 20 20 | 20 20 4d 65 6e 75 53 74 |...b | MenuSt|
|00005ed0| 72 75 63 74 75 72 65 25 | 21 28 50 6f 69 6e 74 65 |ructure%|!(Pointe|
|00005ee0| 72 25 2b 31 32 29 3d 53 | 75 62 50 6f 69 6e 74 65 |r%+12)=S|ubPointe|
|00005ef0| 72 25 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 20 |r% | : |
|00005f00| f4 20 4d 65 6e 75 20 49 | 63 6f 6e 20 44 61 74 61 |. Menu I|con Data|
|00005f10| 20 2d 20 50 6f 69 6e 74 | 65 72 20 74 6f 20 74 65 | - Point|er to te|
|00005f20| 78 74 0d 18 e2 6f 20 20 | 20 20 20 20 4d 65 6e 75 |xt...o | Menu|
|00005f30| 53 74 72 75 63 74 75 72 | 65 25 21 28 50 6f 69 6e |Structur|e%!(Poin|
|00005f40| 74 65 72 25 2b 31 36 29 | 3d 2d 31 20 20 20 20 20 |ter%+16)|=-1 |
|00005f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005f60| 3a 20 f4 20 4d 65 6e 75 | 20 49 63 6f 6e 20 44 61 |: . Menu| Icon Da|
|00005f70| 74 61 20 2d 20 50 6f 69 | 6e 74 65 72 20 74 6f 20 |ta - Poi|nter to |
|00005f80| 76 61 6c 69 64 61 74 69 | 6f 6e 20 73 74 72 69 6e |validati|on strin|
|00005f90| 67 0d 18 ec 5f 20 20 20 | 20 20 20 4d 65 6e 75 53 |g..._ | MenuS|
|00005fa0| 74 72 75 63 74 75 72 65 | 25 21 28 50 6f 69 6e 74 |tructure|%!(Point|
|00005fb0| 65 72 25 2b 32 30 29 3d | a9 28 45 6e 74 72 79 24 |er%+20)=|.(Entry$|
|00005fc0| 29 2b 31 20 20 20 20 20 | 20 20 20 20 20 3a 20 f4 |)+1 | : .|
|00005fd0| 20 4d 65 6e 75 20 49 63 | 6f 6e 20 44 61 74 61 20 | Menu Ic|on Data |
|00005fe0| 2d 20 4c 65 6e 67 74 68 | 20 6f 66 20 74 65 78 74 |- Length| of text|
|00005ff0| 0d 18 f6 16 20 20 20 20 | 20 20 50 6f 69 6e 74 65 |.... | Pointe|
|00006000| 72 25 2b 3d 32 34 0d 19 | 00 22 20 20 20 20 20 20 |r%+=24..|." |
|00006010| 53 75 62 50 6f 69 6e 74 | 65 72 25 2b 3d a9 28 45 |SubPoint|er%+=.(E|
|00006020| 6e 74 72 79 24 29 2b 31 | 0d 19 0a 08 20 20 20 ed |ntry$)+1|.... .|
|00006030| 0d 19 14 05 e1 0d 19 1e | 05 3a 0d |........|.:. |
+--------+-------------------------+-------------------------+--------+--------+
